PETER GOODE 



THE 

AMSTRAD 

PROGRAM BOOK 



THE 

AMSTRAD 

PROGRAM BOOK 
PETER GOODE 



Phoenix Publishing Associates Ltd 
Bushey, Herts. 



Copyright© Peter Goode 1984 
All rights reserved 

First published in Great Britain in 1984 by 
PHOENIX PUBLISHING ASSOCIATES LTD 
14 Vernon Road, Bushey, Herts. WD2 2JL 



ISBN 9465 7624 6 



Printed in Great Britain by 

Billing & Sons Limited, Worcester 

Cover design by 

IvorClaydon 

Typesetting by 

Prestige Press (UK) Ltd. 

Chesham, Bucks. 

Illustrations by 

Denis Gibney 

Chorleywood, Herts. 



PREFACE 



If you are an Amstrad owner, or are about to become one, it is 
probably because you have decided that this computer offers 
you more potential for gaming, programming etc. in colour, 
with sound, than other machines on the market. 

Because we are aware of the potential of the Amstrad we have 
written a wide choice of program which make use of the 
computer's facilities. 

If you are a games player, you will find ample opportunity to 
use the colour and graphics whilst testing your reactions and 
finger twisting skills to the full. If you are interested in 
adventure gaming we have included a program which is a 
variant on Dragons and Dungeons. We have not, for reasons 
of space, been able to list a fully extended program but, when 
you buy your disks, you will be able to use a wider range of 
circumstances for your adventuring. 

To help users understand the programs we have included full 
'how to' instructions and, for those who are keen to move on 
to greater things, programming hints where we feel they may 
be of interest. 
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IMPORTANT NOTES 



If you are a newcomer to computing, and are unfamiliar with 
the task of entering program listings, remember that it is of 
paramount importance to follow every detail. There are no 
real shortcuts. 

Your computer is very particular about grammar and 
punctuation points and will not run the programs if even a 
small detail is missing. 

Be very fussy about the difference between (zero) and □ 
(letter O). All the programs in this book have been printed 
directly from the Amstrad and are therefore 'bug free'. 

If you intend to 'save' some of these programs on tape to 
ensure you don't have to retype them always make sure that 
your cassette has accepted the information before you move 
on. 

You will find that patience is it's own reward in this high 
technology world. 



ZOMBIE ISLAND 




This is going to be a nasty experience for those amongst you 
who are slow on reaction time. 

You are the only survivor of the mad professor's plans to turn 
humans into zombies and you are being pursued by ten of 
your old friends who now, unfortunately, have been 'de- 
humanised'. Your only hope is to lure the zombies into the 
pits which are spread around the screen. Sounds easy. There 
is one snag though, or is it several snags, the zombies can 
move in groups towards you. 



How to play 

As we said above, try and live as long as possible by moving 
with the arrow keys or joystick. If you survive you will be 
offered the choice of continuing to battle with your former 
pals. 



10 



Because of the sprite facilities of the Amstrad you will find that 
the chances of survival are fairly slim. 



The program 
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REM ZOMBIE ISLAND 


20 


GOSUB 520 


30 


N=10:PIT=10 


40 


Z=N 


50 


MODE 1: BORDER 3 


60 


PAPER 3: PEN OsLOC 



:ATE 1, Is PRINT" 
ZOMBIE ISLAND " s 

70 X=21:Y=1 9: LOCATE X,Y: PAPER OsPEN 1 s PR 
INT CHR* (249) ; 

SO DIM A(N) , B(N> : FOR L=l TO M 
90 A (L) =INT (RND i 1 ) #40+1 ) : B <|_> = IIMT (RND ( 1 ) 
*23+2) 

1 00 X X=A ( L ) : YY=B ( L ) : 60SUB 660 : I F DD< >32 
THEN GOTO 90 

110 LOCATE XX„YY:PEN 2 5 PR I NT CHR*<225); 
120 NEXT L 
130 FOR L=l TO PIT 

1 40 X X = I NT ( RND ( 1 ) *40+ 1 ) : YY= I NT ( RND ( 1 ) *23 
+2) 

150 GOSUB 660; IF DD<>32 THEN GOTO 140 
1 60 LOCATE X X , YY : PEN 3 : PR I NT CHR* ( 23 1 ) : 
170 NEXT L 
ISO C»0:D~0 

190 C=C+1:IF ON THEN C=l 
200 IF A(C)=-1 THEN GOTO 190 
210 S=SGN(X-A(C) ) :T=SGN(Y-B(C) ) 
220 X X=A ( C ) +S : YY=B ( C ) +T : GOSUB 660 
230 IF DD=231 THEN GOSUB 400: LOCATE A(C) 
,B(C): PAPER 0: PRINT" ";: A (C) =-1 : LOCATE X 
X , YY : PR I NT " " ? : GOTO 270 
240 IF DD-249 THEN GOTO 420 
250 LOCATE A (C) , B (C) : PEN 2s PRINT" "?:A<C 
)=XX:B(C)=YY: LOCATE XX, YY: PRINT CHR* (225 
) 5 

260 SOUND 0,300, 10 
270 IF INKEY(0>=0 THEN D=0 
280 IF INKEY(2)=0 THEN D=2 
290 IF INKEY(1)=0 THEN D==l 
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300 IF INKEY(S)=0 THEN D=8 

310 S=X:T=Y:IF D=S AND S>1 THEN S=S-1 

320 IF D=l AMD S<40 THEM S=S+1 

330 IF D=2 AMD T<24 THEM T=T+1 

340 IF D=0 AND T>2 THEN T=T-1 

350 XX=S:YY=-T:G0SUB 660: IF DD=231 THEN G 

0T0 420 

360 IF DD=225 THEN GOTO 420 

370 LOCATE X,Y:PEN 1:PRINT" " S : LOCATE S, 

T sPRINT CHR*(249) ; 

380 X=S:Y=T 

390 GOTO 190 

400 Z=Z-1:IF Z=0 THEN GOTO 490 

410 FOR L=l TO 50: SOUND 1 , L*10, 1 : NEXT L: 

RETURN 

420 FOR L=l TO 50: SOUND 1 , RND ( 1 ) *2000+10 

0,2: BORDER INT (RND ( 1 ) #24) 

430 NEXT L 

440 LOCATE 1,8: PAPER 3: BORDER 3: PEN 0:PR 

INT" CAUGHT BY THE ROBOTS 

II 

450 LOCATE 1,25: PAPER 0:PEN 2: PRINT" 
PRESS < SPACE > TO PLAY AGAIN 



460 


IF INKEY*=" " THEN GOTO 460 


470 


IF INKEY$<>" " THEN GOTO 470 


480 


RUN 


490 


REM PLAYER WIN ROUTINE 


500 


LOCATE 1,8 .-PAPER 3: BORDER 3: PEN 


INT' 


YOU HAVE SURVIVED THE ISLAND 



PR 



510 GOTO 460 

520 REM PUT MACHINE CODE JUST ABOVE RE-A 

DJUSTED HIMEM 

530 MEMORY FRE(0)-8<80 

540 MOHIMEM+1 

550 TA=HIMEM+?.,7F 

560 TH=INT(TA/256) 

570 TL=TA-256*TH 

580 POKE MC,8/.CD 

590 POKE MC+1,S<60 

600 POKE MC+2,&BB 

610 POKE MC+3,?.32 

620 POKE MC+4,TL 

630 POKE MC+5,TH 

640 POKE MC+6,S<C9 

650 RETURN 
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660 LOCATE! XX, YY 
670 CALL MC 
680 DD=PEEK<TA) 
690 RETURN 



CLEAR PATH 




You may recall that the United States space shuttle 
Challenger was often nicknamed The Flying Brick' by it's 
pilots as it fell to Earth at 5,000 miles an hour, without an 
engine. 

We have given you the same problem to solve, except we 
have made it even nastier for you by bringing you into a 
deserted city. 

We have given you one edge however. You have a cargo of 
bombs which you can use to clear a path for your flying brick. 



How to play 

Entering the screen at top left you must 'fly' across the city 
and demolish the skyscrapers by pressing the space bar to 
release your bombs. 
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You can only drop a second, or third, bomb when the first has 
hit it's target so there is no point in pressing the space bar and 
hoping for the best. 



Programming Hints 

To change the height of the buildings alter the number after 
the * sign in line 680. Remember if you increase the height 
you will reduce the time you have to respond. 



The Program 



10 REM CLEAR PATH 

20 GOSUB 440 

30 EMT 1,200,2, 1 

40 BY— -1 

50 GOSUB 620 

60 LOCATE 1,1 sPAPER 5 s PEN 10 

70 PRINT" SCORE : "; 

80 X=1:Y=3 

90 LOCATE 11,1 

100 PAPER 5 s PEN 10s PRINT SCORE? 

110 PAPER 

120 TX=X+lsTY=Y 

130 IP TX=20 THEN TX=1:TY=Y+1 

140 IF TY=25 AND TX=10 THEN LOCATE 5,4sP 

EN 13:PRINT"LAMDED SAFELY" s SC=SC+200: FOR 

W=l TO 1300: NEXT WsMODE OsGQTO 50 
150 XX=TX+l:YY=TYs IF XX=21 THEN XX=1:YY= 
YY+1 

160 GOSUB 5S0 

170 IF DD=32 THEN GOTO 250 
180 PEN 8: LOCATE 5, 4s PR I NT "YOU CRASHED" 
190 IF INKEY*=" " THEN GOTO 190 
200 IF INKEY*<>" " THEN GOTO 200 
210 RUN 

220 SOUND 129,0s SOUND 130,0 
230 FOR L=15 TO STEP -1 
240 SOUND &129,0,3,5,0,0,LsNEXT L 
250 LOCATE X,Ys PRINT" "5 

260 LOCATE TX, TY: PRINT CHR* < 197) S CHR* (20 
2) ; 
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270 X=TX:Y=TY 

280 IF INKEY(47K>0 OR BYO-1 THEN GOTO 

330 

290 SOUND 1 , 1 , 280 ,4,0,1,0 

300 BX=X+1 

310 BY=Y+l 

320 IF BY=26 THEN BY=-1 

330 IF BY=--1 THEN GOTO 430 

340 IF BY=25 THEN LOCATE BX , BY: PRINT" "; 

:BY=-1: SOUND 130,0: SOUND 129,0: GOTO 430 

350 XX=BX: YY=BY+1 

360 GOSUB 580 

370 IF DD=32 THEN LOCATE BX, BY: PRINT" "3 

: LOCATE BX,BY+1:PEN 9: PRINT CHR* (252) s : B 

Y=BY+1:G0T0 430 

380 SOUND 129,0 

390 SOUND 1 30 ,0,1 00 , 3 , , , RND ( 1 ) #4+ 1 

400 SC0RE=SC0RE+10 

410 LOCATE BX, BY: PRINT" " ; 

420 BY=BY+1: LOCATE BX,BY:PEN 9: PRINT CHR 

*<252> ; 

430 GOTO 90 

440 REM PUT MACHINE CODE JUST ABOVE RE-A 

D JUSTED HI MEM 

450 MEMORY FRE(0)-?<80 

460 MC=HIMEM+1 

470 TA=HIMEM+&7F 

480 TH=INT(TA/256) 

490 TL=TA-256*TH 

500 POKE MC&CD 

510 POKE MC+1,.^60 

520 POKE MC+2,2<BB 

530 POKE MC+3,2<32 

540 POKE MC+4,TL 

550 POKE MC+5,TH 

560 POKE MC+6,2,C9 

570 RETURN 

580 LOCATE XX, YY 

590 CALL MC 

600 DD=PEEK(TA) 

610 RETURN 

620 REM DRAW THE CITY-SCAPE 

630 MODE 

640 BORDER 7 

650 PEN 3 

660 PAPER 1 
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670 


FOR L= 


t to : 


20 








680 


FOR Q=25 TO 


24- 


•RND ( 1 ) *4 


s 


TEP 


690 


LOCATE 


L,Q 










700 


PRINT CHR*<: 


207) 


|! 






7 1 


NEXT Q 












720 


NEXT L 












730 


RETURN 













CASTLE 'ADVENTURE' 




Start looking out your armour, your good luck charms and 
your trusty friends as you are on your way to try and save the 
Elf King's daughter, yes we said Elf, from her prison. 

The girl's father is waiting for her return in the woods outside 
the castle. He's not stupid! 



How to play 

The program only uses two word commands, all of which are 
shown in the data statements at the end of the listing. Do not 
try to enter multiple statements such as "TAKE KNIFE AND 
RUN". 



You can, however, abbreviate the direction commands to 
their initial letter i.e. "GO N" for Go ISIorth. 

If you haven't 'adventured' before remember that, if you are 
stuck somewhere and can't seem to be able to move on, you 
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can ask to take Inventory which can also be abbreviated to 
INV. 



The Program 



1 REM CASTLE ADVENTURE 

5 MODE 2 

10 DIM DD$(50) ,0P<18> ,0D$<18> ,STUNT<50> 

20 DIM ROUTE (50, 6) 

30 PLOC-1 

40 PF~0 

90 GOSUB 9000 

95 GOSUB 5000 

100 GOSUB 7600 

110 GOSUB 3000s IF VERB=0 THEN PRINT"! do 

n't understand you": GOTO .100 

115 GOSUB 4000 

120 ON VERB GOSUB 7000,, 7000, 7000, 7000, 70 

00, 7000, 8000, 6000, 6500, 5000, 7500, 7400, 73 

00 , 7700 , 7800 , 7900 

130 GOTO 100 

999 END 

1000 REM RETURN VERB NUMBER IN I/P STRIM 
G 

1010 RESTORE 10000sT=0 

1020 READ T$ 

1030 IF T*="*" THEN RETURN 

1040 IF LEFT*(T*,1)="! " THEN T*=RIGHT*(T 

*,LEN(T*)-1) :T=T+1 

1050 IF T$=V$ THEN VERB=T: RETURN 

1060 GOTO 1020 

2000 REM RETURN NOUN NUMBER IN I/P STRUM 

G 

2010 RESTORE 11000:T=0 

2020 READ T* 

2030 IF T*="*" THEN RETURN 

2040 IF LEFT*(T*, 1)=" ! " THEN T*=RIGHT$ (T 

$,LEN<T*)-1) :T=T+1 

2050 IF T*=N* THEN NQUN=T: RETURN 

2060 GOTO 2020 

3000 REM PARSE THEN INPUT AND ANALYSE 

3010 VERB=0:NOUN=0: IF 1*="" THEN RETURN 
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3020 P=G:F0R L=LEN(I*) TO 1 STEP' -1 

3030 I F M I D* ( I $ , L , 1 ) = '» " THEN P=L 

3040 NEXT L 

3050 IF P=0 THEN V*=I*:GQSUB 1000: RETURN 

3060 V$=M I D* < I * , 1 , P- 1 ) - N*«M I D* ( I * , P+ 3 „ 40 

) 

3070 GOSUB lOOOnGOSUB 2000 

3099 RETURN 

4000 ON STUNT (PLOO+1 GOTO 4010,4100,420 

0, 4300, 4400,, 4500,, 4600, 4700, 480D, 490o' 

4010 RETURN 

4100 IF PFOl AND 0P(3)=0 THEN 0P(3)=-1: 

PR I NT" The princess dies of hunger ":: GOTO 

4010 

4110 RETURN 

4200 PRINT" You -fall out of the tree and 

break your neck " s GOTO 8990 

4300 PR I NT "The tree is wobbling very dan 

gerously": stunt (ploc)=2s GOTO 4010 

4400 PR I NT "The tree is swaying in the wi 

nd" s stunt (pi oc ) =3: GOTO 4010 

4500 PRINT" : * That looks nice-", says the g 

uard, eyeing your gal d " s GOTO 4010 
4700 IF op (12)00 THEM PR I NT "The f 1 on r d 
rags you back, faster than you can move" 

:ploc=46:G0T0 4010 

4710 PR I NT "Your ring of speed glows and 

you rush down the corridor past the slid 

ing f loor" : pi oc =50: GOTO 4010 

4800 PRINT"A portcullis drops down hard 

behind you, barring the castle entrance 11 

: s t un t ( p 1 oc ) =0 a GOTO 40 1 

4900 IF op(3)<>0 THEN PRINT"The elver, ki 

ng sees that you have failed in your res 

cue attempt, and he swiftly kills you" : G 

0T0 8990 

4910 PRINT"The elven king greets you wit 

h fair words and offers you all the gold 

and silver of his kingdom as reward for 

the safe re 
turn of his daughter" 
4920 GOTO 8990 
5000 REM describe (ploc) 
5010 PR I NT "You are " ; 
5020 1=0 
5030 1=1 + 1: IF l>LEN(DD$(ploc) ) THEN GOTO 

5099 



20 

5040 IF MID*(DD*(ploc) ,L, 1)=" ! " OR MID*< 

DD*(PLDC) ,L,1)="*" OR MID* (DD* (PLOC) , L, 1 

)="" THEN GOTO 5099 

5050 PR INT M I D* < DD* ( PLOC ) , L , 1 ) 5 

5060 GOTO 5030 

5099 PR I NT :: GOSUB 5200 : RETURN 

5100 REM DESCRIBE OBJECT NUMBER (N) 
5110 PRINT 

5120 L=0 

5130 L=L+1:IF L>LEN (OD* (N) ) THEN GOTO 51 

99 

5140 IF MID* (OD* (NOUN) ,L, 1)="" OR MID*(0 

D*(N0UN),L,1)=" !" THEN GOTO 5199 

5150 PRINT MID*(OD*(N) ,L., 1) ! 

5160 GOTO 5130 

5199 PRINT: RETURN 

5200 REM DESCRIBE ALL (PLOC) OBJECTS 
5205 F=0 : PR I NT " Th er e is " ; 

5210 FOR N=l TO 18 

5220 IF OP(N)=PLOC THEN NOUN=N: F=l : BQSUB 

5100 
5230 NEXT Ms PRINT: IF F-0 THEN PRINT"noth 
ing here" ELSE PRINT "here" 
5299 RETURN 
6000 REM TAKE COMMAND 

6010 IF NOUN=0 THEN PR I NT "Take what ?":R 
ETURN 

6015 IF 0P(N0UN)OPL0C OR OP (NOUN) =-l TH 
EN PR I NT "Take what ?": RETURN 
6020 IF OP (NOUN) =0 THEN PRINT" You ' ve alr- 
eady got. it, dumbo" : RETURN 
6025 IF N0UNM3 THEN PRINT"You can't tak 
e that": RETURN 

6030 PR I NT "O.K. You've got it now" 
6040 OP ( NOUN ) =0 : RETURN 
6500 REM DROP COMMAND 

6510 IF NOUN=0 THEN PR I NT "Drop what ?":R 
ETURN 
6515 IF OP(NOUN)<>0 THEN PR I NT "Drop what 

?": RETURN 
6520 PR I NT "O.K. It's dropped" 
6530 OP ( NOUN ) =PLOC : RETURN 
6700 FOR L=l TO LEN (OD* (NOUN) ) 
6710 IF MID* (OD* (NOUN) , L, 1)=" ! " THEN OD* 
(NOUN) =LEFT* (OD* (NOUN) , L-l ) +" "+MID* (OD* 
(NOUN) ,L+1) 
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6720 NEXT L: RETURN 

6800 FOR L=l TO LEIM (DD* (PLOC) ) 

6810 IF MID* (DD* (PLOC) ,L, 1)=" ! " THEN DD* 

(PLOC) =LEFT* (DD* (PLOC) , L-l ) +" "+MID* (DD* 

(PL.OC) ,L+1) 

6820 NEXT L: RETURN 

6900 FOR L=l TO LEM (DD* (PLOC) ) 

6910 IF MID*(DD*(PL0C),L,1)="*" THEN DD* 

( PLOC ) =LEFT* ( DD* ( PLOC ) , L - 1 ) + " " +m i d* ( DD* 

(PL0C),L+1) 

6920 NEXT L: RETURN 

7000 NLOC=ROUTE(PLOC,VERB):IF NLOCO-1 A 

MD MLOC< >0 THEN PR I NT " . K . " : PR I NT : PLOC=M 

LOC : GOSUB 5000 : GOSUB 4000 : RETURN 

7010 IF NLOO-1 THEN GOTO 7030 

7020 IF VERB=5 THEN PRINT"There' s nothin 

g that you can climb here" : RETURN 

7025 PR I NT "You can't move in that direct 

ion": RETURN 

7030 PR INT "A door blocks your way":RETUR 
N 

7300 IF NOUIMOO THEN PRINT"try EXAMINF": 

RETURN 

7310 GOSUB 6800: GOSUB 5000 s RETURN 

7400 IF NOUN=0 THEN PR I NT "ex amine what •> 

" s RETURN 

7405 IF 0P(N0UN)<>0 AND OP (NOUN) OPLOC T 

HLN PR I NT "ex amine what ?": RETURN 

7410 GOSUB 6700: N=N0UN: GOSUB 5100: RETURN 

7500 REM INVENTORY 

7510 F=0: PRINT" You are holding : " : FOR N= 

1 TO 18 

7520 IF 0P(N)=0 THEN F=l : N0UN=N: GOSUB 51 
00 

7530 NEXT N: PRINT: IF F=0 THEN PRINT"noth 
ing" 

7599 RETURN 

7600 1*="": PRINT: PRINT" : "; 

7610 A*=INKEY*:IF A*<>"" THEN GOTO 7610 
7620 A*=INKEY*:IF A*="" THEN GOTO 7620 
7625 IF A*>="a" AND A*< = ":•:" THEN A*=CHR$ 
(ASC(A*)-32) 

7630 IF ASC(A*)=13 AND LEN(I*)>0 THEN PR 
INT: RETURN 

7640 IF ASC(A*)<>127 AND LEN(I*)<30 THEN 
I*=I*+A*:PRINT A*:: GOTO 7610 
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7650 IF ASC(A*X>127 THEN GOTO 7610 

7660 IF LEN(I*)=0 THEN GOTO 7600 

7670 I*=LEFT* <I*,LEN (I*) -1) : PRINT CHR*(8 

) i " " ; CHR* ( S ) ; : GOTO 76 1 

7700 IF NOUN=0 THEN PR I NT "Give what. ?":R 

ETURN 

7710 IF N0UNO2 AND N0UNO7 AND N0UNO9 

AND N0UNO4 AND N0UNO12 THEN PRINT" It's 

returned to you" : RETURN 
7720 IF PL0CO17 THEN GOTO 7750 
7730 IF N0UIMO7 AND N0UNO12 THEN PRINT" 
The guard recognises the stolen goods an 
d promptly kills you.": GOTO 8990 
7740 PR I NT "The guard snatches your bribe 

and opens the gate" : OP (NOUN) =-1 : ROUTE ( 1 
7 , 2 ) = 1 8 : STUNT (17) =0 : RETURN 
7750 IF PL0CX11 OR PL0O14 THEN PRINT"Th 
ere is nobody here who wants anything" :R 
ETURN 

7760 IF NOUIM-4 THEN PR I NT "The princess t 
hanks you kindly for the food and looks 
much better" : ODS (4) ="a beautiful, health 
y looking pr 
i ncess" : PF=1 
7770 OP ( NOUN ) =- 1 : RETURN 

7800 IF N0UN=0 THEN PRINT"but who ?":RET 
URN 

7810 IF N0UNO15 AND N0UNO16 THEN PRINT 
"You can't. ": RETURN 

7820 IF 0P(N0UN)OPL0C THEN PRINT "You ca 
n't. ": RETURN 

7830 IF N0UN=15 THEN PRINT"The kings esc 
ort instantly rises from his light slumb 
er and despatches you with one blow of h 
is sword "s GO 
TO 8990 

7840 IF 0P(5)=0 THEN PR I NT "The guard swi 
ngs hi 5 mace and your knife breaks": OP (5 
)=-l: RETURN 

7850 PRINT"The guard hits you over the h 
ead and knocks you out. He takes the pri 
ncess back to the tower" 

7860 0P(3)=14:0D$(3)="A very distressed 
princess" : RETURN 

7900 I F N0UN< >0 THEN PR I NT " . K . '"3 0D* < 
NOUN) 5 "' ": RETURN 
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7910 IF N$="CPC" 
,3>=7:G0SUB 6900: 
7920 IF N$="464" 
,2>=4:G0SUB 6900: 
7930 PR I NT "O.K. ' 



AMD PL0C=6 THEN ROUTE (6 

RETURN 

AND PL0C=3 THEN ROUTE (3 

RETURN 

"JN*; "' ": RETURN 



what 



RE 



8000 IF NOUN=0 THEN PR I NT "U" 

TURN 

8005 IF 0P(N0UN)OPL0C AND OP < NOUN )<>0 T 

HEN PRINT"Use what ?": RETURN 

8010 IF N0UN=1 THEN GOTO 8100 

8011 IF N0UN=4 THEN GOTO 8200 

8012 IF N0UN=8 THEN GOTO 8300 

8013 IF N0UN==13 THEN GOTO 8400 

8014 IF N0UN=18 THEN GOTO 8800 
8019 GOTO 8750 

8100 IF PL0CO15 THEN PR I NT "The ground i 

s too hard here": RETURN 

8110 PRINT" You dig in the soft earth and 

reveal something" : ROUTE ( 15, 6) =48: GOSUB 
6900: RETURN 
8200 PRINT"Someone, somewhere, needed th 



more than you d id": OP ( 4 ) =•••• 1 : RETU 



1 1 need to 



use some rope 



PL0O2 
is now 



THEN PR I NT "The door 
open": ROUTE (PLOC, 2) 



to 

= 1 6 : 



th 
RE 



at -food 

RN 

8300 PR I NT "You 

: RETURN 

8400 IF 

e south 

TURN 

8410 IF PLQC=3 THEM PR I NT "A combination 

is needed 

ETURN 

8420 IF PL0C=6 THEM PRINT" You' 1 1 need 

e password to get in here": RETURN 

8430 IF PL0C=18 THEM PR I NT" There ' s no 

y you can unlock a portcul 1 i s" : RETURN 

8440 PRINT" There's nothing to unlock her 

e": RETURN 

8750 PRINT"You can't use that !": RETURN 

8800 PRINT" You carefully tie the bucket. 

to the rope and lower it down the well": 

FOR 1=1 TO 800: NEXT 1 

8810 PR I NT "Your draw the bucket up again 

": FOR 1=1 TO 800: NEXT 1 : PR I NT "There is s 

omething at the bottom o-f i t " : OP (7) =PL0C 

8820 PRINT" You let go o-f the rope and th 

e bucket -falls back down the well":op(8) 



to get into the garden shed":R 



th 



wa 
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•-■=-- 1 : op ( 1 8 ) =- 1 : PR I NT " The ob j ect you f ound 

lies glitte 
r i n g on the g r o u n d ' ' 
8830 RETURN 

8990 PR I NT : PR I NT : PR I NT : PR I NT : PR I NT : END 
9000 REM SETUP ALL THE ARRAYS 
9010 FOR L=1'T0 50: STUNT <L> =0: NEXT L 
9020 STUNT (7) =1 : STUNT (22) =9: STUNT (28) =4: 
STUNT (31) =4 

9030 STUNT ( 1 7 ) =5 : STUNT ( 49 ) =7 s STUNT (18) =8 
9050 RESTORE 12000: FOR L=l TO 50 
9060 FOR N=l TO 6: READ ROUTE (L,N) 
9070 NEXT N:NEXT L 
9080 RESTORE 13000 

9090 FOR L=l TO 18: READ OP (L): NEXT L 
9100 OD$(l)- n A shovel! ready to dig the e 
arth" : QD$ (2) = "A pi 1 e of treasure ! gathers 
d in the days of great empires" 

9110 od*(3)="A princess! as beautiful as 

any elven king's daughter could be":od$( 

4)= "Some f ood ! 1 ovi ngl y prepared and fit 

for royalty" 

9120 od$(5)="A knife! razor sharp, cursed 
by many, loved by •few"sod$(6)= , 'A large 

book! telling of the prowess of the kings 
escort " 

9130 od*(7)="A gold coin" : od* (8) ~"A buck 

et!of untold riches" : od* (9) = "many Silver- 
Plates ! inscribed with the mystical rune 

s E.P.N.S. " 

9140 od$ ( 10) = M Notepaper ! bearing the lege 

nd CPC" sod* ( 1 1 ) ="An ancient scroll Ireadi 

ng 'find my daughter and be richly rewar 

ded ? " 

9150 ad*(12)="A shining ring! of speed" so 

d*(13)-"A key" s od* (14)=" A tree ! branches 

hang down low and the trunk reaches for 

the sky" 

9160 od*<15)="The kings escort ! sleeping 

lightly n sod*< 16)="A castl e guard ! who loo 

ks very bored" 

9170 od*(17)="A well {radiating magice"so 

d*(18)=*'A long well made rope" 

9210 dd*(l)="in the centre of the castle 
courtyard" : dd* (2) ~" at the south end o^ 

the courtyard ! an opening leads further s 

outh" 
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9220 dd*(3)= M by the entrance to the west 
tower the garden shed is south$the shed 
door is open" : dd$ (4) =" inside a garden s 
hed" 

9230 dd*(5)= n at the bottom of a winding 
stairway":dd*(6)="by the entrance to the 

east tower" :dd*(7)="at the bottom of a 
staircase" 

9240 dd*(S)= n on a winding stairway ": dd$ ( 
9)=dd*(B):dd*(10)="at the top of a stair 
way!' 464' is scrawled on the wall" 
9250 dd$(ll)~"on a steep stai rcase" s dd$ ( 
12)=dd*(ll) :dd*(13)=dd*<ll) : dd* ( 14) ="at 
the very top of the east tower" 
9260 dd*<15)="beside a soft patch of ear- 
th in the courtyard*a hole leads down" :d 
d*(16)="at the northern end of a guarded 

passage" 
9270 dd$(17)="in a tunnel. An aging guar 
d blocks your way south ": dd$ ( 18) = "on the 

main East /West road of middle earth" 
9280 dd*(19)="on the road, a forest lies 
to the south": did* (20)-" on the road,. A la 
rge sign reads s Adventure in need of ex- 
tension : 

: ROAD AHEAD CLOSED :: " 

9290 dd*(21)="on top of a large unclxmab 
le cliff overlooking a vast panorama of 
places to adventure" : dd* (22) = " in a small 

clearing in 

the forest" 

9300 dd*(23)="on the edge of a vast fore 

st ,l :dd*(24)= ,, lost deep in a ■forest ,, :dd$( 

25)=" lost in a -forest " s dd* (26) =" lost wit 

hin a forest 
ii 

9310 dd$ (27) ="hal-f way up a large treelth 

e tree extends upwards" : dd$ (28) =" at the 

top of the tree j a small clearing is vis 

ible below" 

9320 dd*(29)="in the courtyard" : dd* (30) ~ 

"in the shade in the courtyard" s dd* (31 ) =* 

"at the top of a tree in the courtyard t 

here is a pr 

incess in the east tower" 
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9330 dd*(32>=" In the north-west corner o 

f the courtyard" : cld$ (33) ="on stairs lead 

ing down into the dungeon" : dd* (34) =" in t 

he guard roo 

m" 

9340 d d $ ( 35 ) = "In t h e h an que t ing hall": d d 

*(36>="At the east end o-f the banqueting 

hallla door leads north to the kitchen" 
9350 dd*(37)= n In the castle kitchen ": dd$ 
(38)= "At the north end of a north-south 
corridor" :dd$( 39)=" in the servants quart 
ers" 
9360 dd*(40)=*'in the royal bedroom ! there 

is a door to the west " : dd$ (41 ) =" i n the 
castle library" :dd$ (42) ="in the grand th 
rone room" 

9370 dd* (43)=" in a north-south corridor! 
cells lead east and west " s dd* (44) =" i n an 

empty eel 1 " : dd* (45) =dd* (44) 
9380 dd$(46)="in a north-south corridor" 
:DD*(47)="in a cell" 

9390 dd$(48)="in a locked dungeon cell": 
dd*(49)="At the south end o-f a corridor" 
:dd*(50)=dd*(49) 

9999 RETURN 

10000 DATA ! NORTH, N, ! SOUTH, S, !EAST,E, ! WE 

ST, W 

10010 DATA 
10020 DATA 
10030 DATA 
10040 DATA 
10050 DATA 
10060 DATA 
10070 DATA 
10080 DATA 
K 



! UP, U, CLIMB, !D0WN,D 

! USE 

! TAKE, GET 

! DROP, PUT 

! LOOK 

! INVENTORY, HW 

! EXAMINE, ! SEARCH 

! GIVE, BRIBE, ! FIGHT, KILL, ATTAC 



10090 
10999 
1 1000 



! SAY, SHOUT 



TREASURE, !PRIN 



DATA ! 

DATA* 

DATA ! SHOVEL, SPADE. 
CESS), ! FOOD 

11010 DATA ! KNIFE, WEAPON, ! BOOK, ! GOLD, CO I 
N, ! BUCKET, ! SILVER, PLATES 

11020 DATA ! NOTEPAPER, PAPER, NOTE, ! SCROLL 
, ! RING, SPEED, ! KEY 

11030 DATA ! TREE, TRUNK, ! ESCORT, ! GUARD, SO 
LDIER,BORED, !WELL, ! ROPE 
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1.1999 DATA* 

1 2000 DATA 29 ,2,6, 3 , , ,1,-1, 30 , , , ., 32 

., - 1 , 1,5, , 

1 20 1 DATA 3 , , , , , , , , 3 ,, , 8 , ,15, 30 

,-1,1,0,0 

1 2020 DATA , ,0,6,11, , , ,, , ,9,5, , , 

, , 1 , 8 , , , , , , 9 , , „ ,0,12,7, , , , 

0,13,11 

1 2030 DATA , ., , ,14,12, ,, , , , ,13, 35 

,6,0,29,0,0,2, 17., , ,0,0, 16, , , , „ , -- 1 

,23,19,21,0,0 

1 2040 DATA ,23,20,18, , , , 23 , , 1 9 , , , 

0,23,18,0,0,0 

12050 DATA 25,26,24,26,0,0,18,24,26,25,0 

,0,25,26,24,25,27,0,26,24,25,26,27,0,25, 

24 , 26 , 25 , 27 , , , , , , 28 , 22 

1 2060 DATA , , ,0,0,27,0,1,15,32, , , 6 , 

0,0, 2,31 , 0, 0, 0, 0,0, 0, 30, 34, 3, 29, 0,0, 0,0, 

0,35,40,0,38 

1 2070 DATA 42 , 32 , , , , , 39 ,15,36, 33 , , 

, 37, 0,0, 35, 0, 0,0, 36, 0, 39, 0,0,0, 43, -1,-1, 

33 , ,0,35,37, ., , 

1 2080 DATA 41,0,-1,-1,0,0 , , 40 , , 42 ., O , O, 

0, 34, 41 , 0, 0, 0, 38, 46, 44, 45, 0, 0, O, 0,0, 43, 

,0,0,0,43,0,0,0 

1 2090 DATA 43,49,47,-1,0, , , , , 46 , , , 

,0,-1,0,15,0,0, , , , , , 46 , , , , , 

13000 DATA 4,42,14,37,39,41,-1,29,35,50, 

0,48,47,30,34,17,29,29 



MINEFIELD 




It's a darned hard life for the little man who has been deserted 
by his fellow soldiers, in the middle of a mine field. See if you 
can help him reach the dug-out where his colleagues are 
hiding. 

The mines are randomly generated, so be careful of your 
moves. Don't tell the little soldier but we believe, on very good 
authority, that when he reaches the safety of the dug-out he is 
going to be sent out on another mission. 

Every time he makes it through the minefield the number of 
mines increase and he must keep going until 



How to play 

Use arrow keys to move. When the inevitable overcomes your 
hero you will see a score on the screen and you may press the 
space bar to send the poor little beggar back into the field. 
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Programming hints 

Set the difficulty level when asked to do so. 

The program 



10 
20 
30 
40 
50 
60 
70 
80 
90 
10 
11 



13 
14 
15 
16 
17 

ia 

19 
20 
21 



24 

25 

1 

26 

27 

1 

28 

29 

30 

31 



>20 
53( 



REM MINEFIELD 

GOSUB 550 

C=5 

D=l 

GOSUB 430 

SCDRE=0 

MODE 

BORDER 13 

PAPER 13: PEN 5 

LOCATE 1,1 

PRINT" MINEFIELD 

II ■ 

LOCATE 1,25 s PRINT" 



SCORE 



PAPER 

EVERY 4, 1 GOSUB 930 

PEN 14 

LOCATE 19,23 

PRINT CHR*<203) 5 

X=3:Y=3 

XX = X: YY=Y 

Q=DIF 

Q=Q-1 

IF QOO THEN GOTO 210 

SC0RE=SC0RE+10 

IF INKEY<8)=0 AND XXOl THEN XX=XX-1 

IF INKEY(1)=0 AND XXO20 THEN XX = XX+- 

IF INKEY(0)=0 AND YY<>3 THEN YY=YY-1 
IF INKEY(2)=0 AND YYO-24 THEN YY=YY+- 

IF XX=X AND YY=Y THEN GOTO 360 
GOSUB 690 

IF DD=231 THEN GOTO 830 
IF DD=203 THEN GOTO 740 
IF DD<>32 THEN GOTO 190 
LOCATE X,Y: PRINT" " 
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340 

350 

360 

370 

+3) 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 



LOCATE XX,YY:PEN 9 

PRINT CHR$<249) ; 

X = XX: Y=YY 

XX=INT(RND<1>*20+1> : YY=INT (RND ( 1 ) *22 

GOSUB 690 

IF DD<>32 THEN GOTO 370 

PEN 8: LOCATE XX,, YY 

PRINT CHR*(231> ? 

GOTO 190 

REM SET DIFFICULY LEVEL 

NODE 

LOCATE 1,4 

PRINT" 

LOCATE 1,8 

PR I NT "0 IS EASY 



SET THE DIFFICULTY 



LOCATE 
PRINT" 
K*=INKEY* 
IF K*<"0" 



1, 10 



iS HARDEST" 



OR K$>"9" THEN 



DIF=50-5*<A5C(K$)-ASC("0 
RETURN 

REM PUT MACHINE 
DJUSTED HIMEM 
560 MEMORY FRE(0)-&80 
MC=HIMEM+1 
TA=HIMEM+&7F 
TH=INT(TA/256) 
TL=TA-256*TH 
POKE MC,&CD 

MC+ 1,^60 

MC+2,&BB 

MC+3,2.<32 

MC+4..TL 

MC+SjTH 

MC+6 S &C9 



GOTU 510 
) ) 



CODE JUST ABOVE RE-A 



570 
580 
590 
600 
6 1 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 



POKE 

POKE 

POKE 

POKE 

POKE 

POKE 

RETURN 

REM READ FROM SCREEN (XX, YY) INTO DD 

LOCATE XX, YY 

CALL MC 

DD=PEEK(TA) 

RETURN 

REM REACHED EDGE OF MINEFIELD 

LOCATE 1,8 

PRINT" YOU HAVE ESCAPED " 

LOCATE 1,10 



31 



780 PRINT" YOU SCORE : 

790 LOCATE 15, 10 

800 PRINT SCORE 

810 GOTO 890 

820 END 

830 REM HIT A MINE => KILLED 

840 PAPER 4: PEN 15 

850 LOCATE 1,8 

860 PR I NT "YOU HAVE BEEN KILLED" 

870 LOCATE 1, 10 

880 PRINT" YOU SCORE 

890 IF IMKEY*=" " THEN GOTO 890 

900 IF INKEY*<>" " THEN GOTO 900 

910 GOTO 60 

920 END 

930 C=C+D:IF C=25 OR C=4 THEN D=-D:GOTO 

930 

940 INK 8,C 

950 RETURN 



ASTEROID STORM 




Your force field defences have disintegrated; your lasers have 
overheated and you are now approaching a meteroid belt. 

We don't hold out much hope for your survival as it's only a 
matter of time, and manual dexterity, as to how long you can 
keep going. 

Your cruiser is moving down the screen and a continuous 
wave of rocks and star particles are rising to meet you so good 
luck. 



How to play 

As you have no defence systems left you must try to stay alive 
by moving left and right using arrow keys. 
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Programming Hints 

To slow up the asteroids you can insert a delay as follows: 

Line 195 FOR Z= 1 to 30: NEXT Z 

The Program 



10 REM ASTEROID STORM 

20 GOSUB 410 

30 REM NEW PLAYER 

40 SC0RE=0 

50 MODE 1 

60 BORDER 18 

70 SHIPX-1S 

SO YY=1 

90 SHIP*=" "+CHR*(245)+" " 

100 PAPER 

110 INK 0, 13 

120 CLS 

130 REM MAIN LOOP 

140 A=INT(RND(1>*35+1) 

150 B=INT(RND<1)#(38~A>+1) 

160 PEN 3 

170 LOCATE A, 25: PR I NT"*".! 

ISO LOCATE B, 25: PRINT"*": LOCATE 40, 25: PR 

INT" " 

190 REM MOVE SHIP 

200 SC0RE=SC0RE+15 

210 IF INKEY(S)=0 AND SHIPXM THEN SHIPX 

=SHIPX-1 

220 IF INKEY(1>=0 AND SHIPXC38 THEN SHIP 

X=SHIPX+1 

230 XX=SHIPX+1 

240 GOSUB 550 

250 IF DD=42 THEN GOTO 300 

260 LOCATE SHIPX, 1 

270 PEN 1 

280 PRINT SHIP$ 

290 GOTO 130 

300 REM KILLED BY A ASTEREORIC COLLISION 

310 PAPER 1 

320 PEN 3 
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330 LOCATE 16, 6: PRINT"Oh Dear," 

340 FOR Q==l TO 1000: NEXT Q 

350 LOCATE 8, 10: PRINT" Another one bites 

the dust" 

360 FOR q=l TO 1000: NEXT q 

370 LOCATE 10, 14: PRINT" YOU SCORED : " 5 SC 

ORE; " 

380 IF INKEY*=" " THEN GOTO 380 

390 IF INKEY*<>" " THEN GOTO 390 

400 GOTO 30 

410 REM PUT MACHINE CODE JUST ABOVE RE-A 

DJUSTED HIMEM 

420 MEMORY FRE(0)-&80 

430 MC=HIMEM+1 

440 TA=HIMEM+&7F 

450 TH=INT(TA/256) 

460 TL=TA-256*TH 

470 POKE MC,S<CD 

480 POKE MC+i,&60 

490 POKE MC+2,&BB 

500 POKE MC+3,&32 

510 POKE MC+4,TL 

520 POKE MC+5,TH 

530 POKE MC+6,S<C9 

540 RETURN 

550 LOCATE XX, YY 

560 CALL MC 

570 DD=PEEK(TA) 

580 RETURN 



WORDGRAMS 




If you are tired of zapping, crunching and powing the aliens of 
the Universe perhaps you would like to try something a little 
more cerebral. 

Your Amstrad will choose a word at random, from a selection, 
and scramble the letters on the screen. You must determine 
the word and enter your answer. 



How to play 

Type in the word you think has been scrambled and press 
ENTER. 



You will be given a selection of ten words and will receive 
points based on your efforts. 
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Programing Hints 

You can alter the words by changing the data in lines 290 
onwards but remember, if you change the number of words, 
you must change the items in Line 280. 

The Program 



10 REM ANAGRAMS 

20 MODE 2 

30 RESTORE 

40 READ M 

50 FOR L=l TO INT(RNDU)*N-i-l) 

60 READ W$ 

70 NEXT L 

SO A$=W$ 

90 FOR L=l TO 30 

100 S=INT<RND(1>*LEN(W*>+1) 

110 A*=MID*(A*',S, 1)+LEFT*(A$,S-1)+MID$(A 

$,3+1,255) 

120 NEXT L 

130 CLSs LOCATE 1 , 10: PRINT "The anagram is 

a Urn 
« !> 

140 PRINT a$ 

150 LOCATE 1, 16 

160 PRINT" What is the hidden word : 

II 

170 LOCATE 26, 16 

180 INPUT g$ 

190 IF G$="" OR LEN(G$)>15 THEM GOTO 150 

200 IF G$=W* THEN GOTO 250 

210 LOCATE 1,20 

220 PRINT"WRONG ... BAD LUCK" 

230 FOR Q=l TO 1500s NEXT Q 

240 GOTO 30 

250 LOCATE 1,20 

260 PRINT"CORRECT ... WELL DONE" 

270 GOTO 230 

280 DATA 40 

290 DATA AMSTRAD, COMPUTER 

300 DATA TELEVISION, COLOUR 

310 DATA CINEMA, BUNGALOW 

320 DATA SUITCASE, CASSETTE 
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330 DATA CARPET, CEILING 

340 DATA MATHEMATICAL 

350 DATA GYROSCOPE 

360 DATA AERIAL, GENERATOR 

370 DATA GLASS, NEEDLE 

380 DATA SIENNA, VIENNA 

390 DATA CHARISMATIC, REMOTE 

400 DATA PICTURE, ENCYCLOPEDIA 

4.10 DATA RABBIT, AARDVARK 

420 DATA STANDARD, TELEPHONE 

430 DATA BOXES, BOARD 

440 DATA HEATER, AMPLIFIER 

450 DATA BASIC, VIDEO 

460 DATA DIFFICULT, STRANGE 

470 DATA CARAVAN, ALARM 

480 DATA SPADE, SKIER 

490 DATA HOARSE, FROST 



DRIVING TEST 




You have been hurtling down country lanes in your new 
sports car, trying to impress your lady friend by your side, 
only to find that your brakes have gone and there is a steep 
incline before you. 

Try to stay on the road — you know it makes sense. 



How to play 



Steer the car using the arrow keys to move left and right. 
When you finally run out of road you will see a score on the 
screen. 
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The program 



10 REM DRIVING TEST 

20 DEFINT A-Z 

30 MODE 1 

40 SYMBOL 255 , &99 , &FF , &99 , &3C , &3C , &BD „ fcF 

F,&99 

50 GOSUB 440 

60 LOCATE 5,5: INPUT"DIFFICULTY (4-7) " 5 D 

70 IF D<4 OR D>7 OR DO I NT (D) THEN GOTO 

60 

80 RQAD$=CHR* (217) +CHR* (207) 

90 FOR L=l TO D 

100 ROAD*=RQAD*+" " 

110 NEXT L 

1 20 RO AD*=ROAD*+CHR$ ( 207 ) +CHR* (219) 

130 RMAX=37-D 

140 CLS 

150 SC=0 

160 BORDER 21 

170 CAR=8:R0AD=12 

ISO LOCATE 1,25: FOR L=l TO ROAD: PRINT CH 

R$(207) ; :NEXT L 

190 LOCATE ROAD+D+ 1,25 : FOR L=l TO 28-D:P 

RINT CHR* (207) j: NEXT L 

200 PRINT 

210 XX=CAR:YY=2: GOSUB 580 

220 SC=SC+1 

230 IF DD<>32 THEN GOTO 320 

240 IF INKEY(8)=0 AND CAR>1 THEN CAR=CAR 

-1 

250 IF INKEY(1)=0 AND CAR<40 THEN CAR=CA 

R+l 

260 LOCATE XX, 1: PR I NT CHR$(255); 

270 IF RND(1)>0.4 AND R0AD>1 THEN ROAD=R 

OAD-1 

280 IF RND(1)>0.4 AND ROAD<RMAX THEN ROA 

D=R0AD+1 

290 LOCATE ROAD, 25: PRINT ROAD*: PR I NT 

300 SOUND 1 , 1 000 ,3,7,0,0,5 

310 GOTO 210 

320 FOR L=15 TO STEP -1 

330 BORDER L*1.5 

340 SOUND 1,0, 30 ,7,0, , L 
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350 

360 

370 

380 

390 

400 

CORED 

410 IF 



FDR Q=l TO 5 

PLOT 310,200 

DRAW RND ( 1 ) *639+ 1 , RND ( 1 ) *400+ 1 

NEXT Q 



NEXT L 
LOCATE 1,2= 

"use 

INKEY*=' 



PRINT' 



YOU S3 



420 IF INKEY*<>" " 

430 GOTO 60 

440 REM PUT MACHINE 

JUSTED HI MEM 

450 MEMORY FRE(0)-S<80 

460 MC=HIMEM+1 

470 TA=HIMEM+&7F 

480 TH=INT(TA/256) 

490 TL=TA--256*TH 

500 POKE MC,&CD 

510 POKE MC+1.&60 

520 POKE MC+2 

530 POKE MC+3 

540 POKE MC+4 

550 POKE MC+5 

560 POKE MC+6 

570 RETURN 

580 LOCATE XX, YY 

590 CALL MC 

600 DD-PEEK(TA) 

610 RETURN 



THEM GOTO 410 
THEN GOTO 420 



CODE JUST ABOVE READ 



&BB 

TL 
TH 
S/.C9 



SPACE TREK 




It's time to bravely go where no man has gone before, or 
something like that anyway. 

We have supplied you here with Photon Torpedoes, Phaser 
Weapons and long and short range scanners but, of course, 
you are still going to have to deal with the Klingons yourself. 



How to play 



You will be given a 'menu' to choose from when you begin. 
Once you have made your choice the playing instructions will 
appear on the screen. 
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The Program 



10 REM SPACE-TREK 

20 GOSUB 3000 

30 GOSUB 3500 

40 EN=5000 

50 SD=0 

60 NP=10 

100 REM MAIN TURN LOOP 

105 IF EN<0 THEN GOTO 10000 

107 SD=SD-Kl„ 04 

110 MODE 1: PAPER 0: BORDER 2:CLS 

115 PEN 1 

120 LOCATE 8, 4: PR I NT "SPACE TREK COMMANDS 

li 

1 30 LOCATE 7 , 5 : PR I NT " =====================: 



140 
150 
160 
170 
180 
190 
200 
210 
211 
213 



LOCATE 1,11 

PRINT" (1) Warp Engines" 

Impulse Engines" 
Phaser s" 

Photon Torpedoes" 
Dock with Starship' 
Long range scan" 
Short range scan" 



PRINT" (2) 
PRINT" (3) 
PRINT" (4) 
PRINT" (5) 
PRINT" (6) 
PRINT" (7) 
a*=INKEY$ 
EN=EN+1: IF 



EN>5000 THEN EN=5000 



IF KS=0 THEN 



LOCATE 5,21; PR I NT " COND I 

2 1 : PR 



215 

TION GREEN": GOTO 218 ELSE LOCATE 5 

INT "CONDITION RED": BORDER 3 

216 IF RND<0.06*KS THEN GOSUB 9000 

218 LOCATE 15, 19: PR I NT "SHIP ENERGY 



"EN" 



219 
220 



IF A*<"1" OR A*>"7" THEN GOTO 211 
ON ASC(A$)-ASC("0") GOSUB 4000,5000, 



6000 , 7000 , 8000 , 1 000 , 2000 
299 GOTO 100 



1 000 
1010 
1020 
1030 
1040 
= 10 
1 050 
= 10 



REM LONG RANGE SCAN 

CLS 

A=SX-1:C=SX+1 

B=SY-1:D=SY+1 

IF A<1 THEN A=l 



ELSE IF 010 THEN C 



IF B<1 THEN B=l ELSE IF D>10 THEN D 



43 



1055 LOCATE 6,5 

1060 FOR L=A TO C 

1070 PRINT"**#"CHR$<L+47) "***"; 

1080 NEXT L 

1090 LOCATE 1,6s FOR L=B TO D 

1100 PRINT" "JsFOR N=A TO C: PR I NT"* 

*": :NEXT N s PRINT 
1105 PRINT" "CHR*(L+47>" " 5 : FOR N=A TO 

C : PR I NT " * * " ; : NE X T N : PR I NT 
1108 PRINT" " JsFOR N=A TO C: PRINT"* 

*"; sNEXT Ms PRINT 
1110 NEXT L 

1120 PRINT" ";:FOR L=A TO Cs PR INT" ** 
#****"; :NEXT L 

1125 LOCATE 4, 1 : PRINT"<stars , bases , k 
lingons)-" 
1130 FOR L=A TO C 
1140 FOR M=B TO D 

1 1 45 SOUND 1 , I NT ( RND*500 ) +50 , 1 
1150 LOCATE 8+(L-A)*7,7+(M-B)*3 
1 160 G*=STR* (G (L., M) ) : G*=RIGHT* (G$, LEN (S* 
) - 1 ) : G$=R I GHT$ ( " 00 " +G* , 3 ) 
1165 PRINT G$ 
1170 NEXT Ms NEXT L 
1180 SOUND 2.81,0 

1200 LOCATE 6, 21 : PR I NT "< SPACE > to exit" 
1210 IF INKE.Y*=" " THEN GOTO 1210 
1220 IF INKEY$<>" " THEN GOTO 1220 
1299 RETURN 

2000 REM SHORT RANGE SCAN 

2010 CLS s LOCATE 6, 6: PR INT" **0** 1**2**3** 
4**5**6**7**8**9** " 
2020 FOR L=0 TO 9s LOCATE 3,L+7 
2030 PRINT STR*(L) " * 

*" 
2040 NEXT L 
2050 LOCATE 6, 17 
2060 PR I NT " #***##*#*#******#*#*♦****#*## 

2065 PAPER Is PEN 

2070 FOR L=l TO 10: FOR M=l TO 10 

2075 SOUND 1 , L*M*4+200, 10 

2080 LOCATE 4+L*3,6+M 

2090 IF S(L,M>=100 THEN PRINT" * " s GOTO 

2 1 40 

2100 IF S(L,M)=-1 THEN PRINT"< ! >" s GOTO 2 

140 
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2110 IF S(L,M)=10 THEN PRINT" >-<": GOTO 2 

140 

2120 IF S(L,M)=1 THEN PRINT"<>>" 

2130 IF S(L,M)=0 THEN PRINT" 

2140 NEXT M:NEXT L 

2142 PAPER 0:PEN 1 

2145 SOUND &81,0 

2150 LOCATE 6, 21 : PR INT" < SPACE)- to exit" 

2160 IF INKEY*=" " THEN GOTO 2160 

2170 IF INKEY*<>" " THEN GOTO 2170 

2199 RETURN 

3000 REM SETUP THE GALAXY 

3010 DIM G(10,10),S(10,10) 

3020 NK>30 : D I M K X ( NK ) , K Y ( NK ) 

3030 SX=5:SY=5 

3040 X=5:Y=5 

3060 FOR N=l TO NK 

3070 L= I NT < RND (1 ) * 1 0+ 1 ) s M= I NT ( RND ( 1 ) # 1 0+ 

1) 

30S0 G(L,M)=G(L,,M)+1 

3090 NEXT N 

3100 FOR L=l TO 1 On FOR M=l TO 10 

3110 G(L,M)=G(L,M)+100*INT(RND*5) 

3120 NEXT M::NEXT L 

3130 FOR N=l TO 3 

3 1 40 L= I NT ( RND ( 1 ) * 1 0+ 1 ) : M= I NT ( RND ( 1 ) * 1 0+ 

1) 

3150 G(L,M)=G(L,M)+10 

3160 NEXT N 

3199 RETURN 

3500 REM GENERATE THIS SECTOR 

3510 F-G(SX,SY) : FOR L=l TO 10 

3520 FDR M=l TO 10: S <L, M> =0: NEXT Ms NEXT 

L 

3530 S(X,Y)=-1 

3540 IF P<100 THEN GOTO 3550 

3543 F-P-100 

3546 L=INT(RND(1)*10+1) : M=INT (RND < 1 ) *10+ 

1):IF S(L,M)<>0 THEN GOTO 3546 

3549 S(L,M) =100: GOTO 3540 

3550 IF P<10 THEN KS=P:GOTO 3560 
3553 F-P-10 

3556 L= I NT ( RND ( 1 ) * 1 0+ 1 ) : M= I NT ( RND ( 1 ) * 1 0+ 
1):IF S(L,M)<>0 THEN GOTO 3556 

3559 S(L,M)=10:G0T0 3550 

3560 IF P=0 THEN RETURN 
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3570 P=P-1 

3580 L= I NT ( RND ( 1 ) # 1 0+ 1 > : M= I NT ( RND ( 1 ) * 1 0+ 

1):IF S(L,M)<>0 THEN GOTO 35S0 

3590 S ( L , M > = 1 : GOTO 3560 

3599 RETURN 

4000 REM WARP ENGINES 

4010 IF EN<1000 THEN CLS: LOCATE 1,11: PR I 

NT"Warp engines out o-f commi ssi on" : FOR L 

=1 TO 800: NEXT L: RETURN 

4020 CLS: LOCATE 1 , 9: PRINT"SET TARGET SEC 

TOR" 

4030 LOCATE 6, 13: PRINT" X s , Y : 

4040 L=SX-lsM=SY-l 

4050 LOCATE 11,13: PR I NT L : LOCATE 1 S ., 1 3 : P 

RINT M 

4060 A*=INKEY*: IF A*-"" THEN GOTO 4060 

4065 IF A*=CHR$(242) THEN L=L 1 

4070 IF A*=CHR*<243) THEN L=L+1 

4080 IF A*=CHR*(240) THEN M=M 1 

4090 IF A*=CHR*<241) THEN M=M+1 

4100 IF A*=CHR*(224) THEN GOTO 4200 

4110 L=(L+10) MOD 10:M=<M+10> MOD 10 

4115 PRINT:PRINT"Energy used :"?:DX=L-(S 

X-l) :DY=M-(SY-1) : P=20*INT (DX*DX+DY*DY) :P 

RINT P; " 

4120 GOTO 4050 

4200 IF EN<P THEM PRINT" INSUFFICIENT ENE 

RGY REMAINS": FOR L=l TO 800: NEXT L:RETUR 

N 

4220 FOR N=50 TO 200 STEP 5 .-SOUND 1,N,25 

: SOUND 2,N+2,15:S0UND 3, N+4, 10: NEXT' N 

4230 PR I NT "YOU ARE NOW IN SECTOR ( "L" , 

II |y| II ^ II 

4240 SX=L+1:SY«M+1:F0R L=l TO 800: NEXT L 

4250 EN=EN~P:GOSUB 3500: RETURN 

5000 REM IMPULSE ENGINES 

5010 IF EN<500 THEN CLS: LOCATE 1,11:PRIN 

T" Impulse engines out o-f commission" : FOR 

L=l TO 800: NEXT L: RETURN 
5020 CLS: LOCATE 1 , 9: PR I NT "SET TARGET COO 
RD I NATES" 

5030 LOCATE 6, 13: PRINT" X : , Y : 
5040 L=X~1:M=Y-1 

5050 LOCATE 11, 13: PRINT L: LOCATE 18,13:P 
RINT M 
5060 A*=INKEY*: IF A*="" THEN GOTO 5060 
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5065 IF A*=CHR*(242) THEN L=L-1 

5070 IF A*=CHR*<243) THEN L=L+i 

5080 IF A*=CHR$(240) THEN M=M~1 

5090 IF A*=CHR*(241) THEN M=M+1 

5100 IF A*=CHR*(224) THEN GOTO 5200 

5110 L=(L+10) MOD 10:M=<M+10) MOD JO 

5115 PRINT: PRINT"ENERGY USED: " ; : DX=L-~ ( X~ 

1) :DY=M-(Y-1> :P=3*INT(DX*DX+DY*DY> : PRINT 
p. i. 

5120 GOTO 5050 

5200 IF EN<P THEN PRINT" INSUFFICIENT FNF 

RGY IS LEFT": FOR L=l TO 800: NEXT L:RFTUR 

N 

5220 PR I NT "YOU HAVE MOVED :" 

5230 S < X , Y ) =0 : X =L+ 1 : Y=M+ 1 

5240 IF S < X , Y ) < >0 THEN PR I NT : PR I NT " .... I 

N FLIGHT COLLISION..." ELSE GOTO 5500 

5250 IF S(X,Y)=1 THEN PRINT" .. WITH A KL I 

NGON " : EN=EN- 1 500 : GOTO 5500 

5260 IF S(X,Y)=10 THEN PRINT" .. WITH A ST 

ARBASE":GOTO B500 

5270 IF S ( X , Y ) = 1 00 THEN PR I NT " . . W I TH A S 

TAR. . " : EN=0: GOTO 5500 

5500 S<X,Y>=-1:EN=EIM-P:F0R L=l TO 600: NF 

XT L: RETURN 

6000 REM PHASERS 

6005 DEG 

6010 CLS: LOCATE 1 , 9: PRINT"PHASER WEAPONS 

II 

6020 LOCATE 1 , 1 1 : PRINT"BEARING : 

": LOCATE 11, 11: INPUT BR 
6030 IF BR<0 OR BRX360 THEN SOUND &81,50 
0,50: FOR L=l TO 800: NEXT L:GOTO 6020 
6040 LOCATE 1 , 14: PRINT "ENERGY : 

": LOCATE 11, 14: INPUT EP 
6050 IF EP<0 OR EP>EN THEN SOUND &S 1,400 
,50: FOR L=l TO 800: NEXT L:GOTO 6040 
6060 TX=X:TY=Y:CX=SIN<BR> :CY=COS(BR) 
6080 TX=TX+CX:TY=TY+CY 

6085 IF TX<1 OR TX>10 OR TY< 1 OR TY>10 T 
HEN GOTO 6200 
6090 P=S ( I NT ( T X+0 . 5 ) , I NT ( TY+0 . 5 ) ) : I F F -0 

THEN GOTO 6080 
6100 IF P=10 THEN PR I NT "YOU JUST DESTROY 
ED A STARBASE":G(SX,SY)=G(SX,SY)-10:S(IN 
T(TX) , INT <TY) )=0: GOTO 6080 
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6110 IF POl THEM GOTO 6120 
6112 PR I NT "YOU HIT A KLINGON" 
6.1.15 IF RND(1)*500<EP THEN PR I NT "AND YOU 
DESTROYED IT" : G (SX, SY) =G <SX, SY) ~1 : S < INT 
(TX+O. 5) , INT (TY+O. 5) ) =0: NK»NK-i : KS=KS--1 
6120 GOTO 6080 

6200 EN=EN-EP:FOR L=l TO 1000s NEXT L s RET 

URN 

7000 REM PHOTON TORPEDOES 

7010 CLS s LOCATE 1 , 9: PR I NT "PHOTON TORPEDO 

ES" 

7020 LOCATE 1 , 1 1 : PR I NT "NUMBER TO FIRE : 

" : LOCATE 17,11:1 NPUT PP 
7030 IF PP<1 OR PP>NP THEN SOUND &8 1,400 
,50: FOR L=l TO 800: NEXT L:BOTO 7020 
7040 NP=NP--PP 
7050 FOR M=l TO PP 

7060 PR I NT "PHOTON TORPEDO "M" FIRED AND 
RUNNING. ...... "; :FOR L=l TO 10:PRIIMT". "; 

: SOUND 1, 15*L+ 100 .-NEXT L:FOR L=l TO 600;; 
NEXT L 

7065 PRINT 

7070 IF RNDCLX0.3 THEM PRINT" IT MISSED. 

" : GOTO 7200 

7080 IF G(SX,SY)/10==INT(G(SX,SY) /10> THE 
N PR I NT "THE TORPEDO RUNS OUT INTO SPACE" 
:GOTO 7200 

7090 PR I NT "HOMING DEVICES ACTUATED" 
7100 A=INT (RND ( 1 ) *1Q+1 ) : B=INT (RND ( 1 ) *10+ 
1 ) : I F S ( A , B ) <> 1 THEN GOTO 7 1 00 
7110 PRINT" YOU HIT A KLINGON": IF RND ( 1 )< 
0.75 THEN PR I NT "AND YOU DESTROYED IT":S< 
A , B ) =0 : KS=KS- 1 : (3 ( SX , SY ) =G ( SX , SY ) - 1 : GOTO 
7200 

7120 PR I NT "BUT THE KLINGON 11 S DEFLECTORS 
REDUCED THE DAMAGE" 
7200 NEXT M 

7210 FOR L=l TO 800: NEXT L 
7299 RETURN 

8000 REM DOCK WITH STARBASE 
8010 CLS: LOCATE 1 , 6: PR I NT "DOCKING COMPUT- 
ER O.S. 0. 1" 
8020 PR I NT " =========================:= » 

8030 LOCATE 1 , 9: PRINT" . . . A LITTLE UNRELI 

ABLE" 

8040 LOCATE 1 , 1 1 : FOR L=l TO 20+ I NT (RND <1 

) *20 ) 
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8050 A= I NT ( RND < 1 ) * 1 0+ 1 ) : B= I NT ( RND ( 1 ) * 1 0+ 
1) 

8060 IF S<A,B>=10 THEN PR I NT "DOCKED SUCC 
ESSFULL Y " : EN=5000 : NP= 1 : PR I NT : PR I NT " ENER 
6Y AND PHOTON TORPS. RENEWED" 
8070 NEXT L 

8080 FOR L=l TO 800 STEP 4: SOUND i,L,2 
8090 NEXT L 
8099 RETURN 

9000 REM A KLINGON ATTACKS 
9010 LOCATE 1,21: PRINT "A KLINGON PHASER 
IS FIRED AT YOU" 
9013 FOR L=15 TO STEP -1 
90 1 5 SOUND 1 , , 1 , L , ,0,8: NEXT L 
9020 IF RND < 1X0. 4 THEN PRINT" IT MISSES" 
:FDR L=l TO 600: NEXT L: LOCATE 1, 21: PRINT 

" : RETUR 
N 

9030 PR I NT " I T H I TS YOU . . . " : DM- I NT ( RND ( 1 ) 
#300+400) : FOR L=l TO 600: NEXT L 
9040 EN=EN-DM 
9050 LOCATE 1,21: PRINT" 

" : RETURN 
10000 REM SHIP HAS BEEN DESTROYED 
10010 CLS: LOCATE 1 , 9: PRINT" YOUR SPACE SH 
IP HAS RUN OUT OF ENERGY" 

10020 PR I NT: PR I NT "YOUR LIFE SUPPORT SYST 
EMS HAVE FAILED" 

10030 PRINT: PRINT" ALL PASSENGERS AN 

D CREW" 

1 0040 PR I NT : PR I NT " . . . ARE MISSING ... PRE 

SUMED DEAD" 

10050 FOR L=l TO 600: NEXT L 

10060 PR I NT "THE STARDATE IS : " ; SD 

10070 LOCATE 1,21: PRINT" AGAIN (Y/N) ? 

II 

10080 A*-INKEY*:IF A*<> ,,n THEM GOTO 1008 



10090 A*=INKEY*: IF A*= n M THEN GOTO 10090 

10100 IF A*="Y" OR A*="y" THEN RUN 

10110 IF A*<> ,, N n AND A*<>"n" THEN GOTO 1 

0080 

10120 CLS: LOCATE 1,5s END 
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We have been saving this monstrous program until the 
middle of the book as we didn't want to scare you with it's 
length or it's content. 

You may have heard of the highly popular Dragons and 
Dungeons game but have never played it - until now. 

You will begin by finding yourself on the third level of a 
dungeon and, should you proceed into the heart of the maze, 
you will meet twenty one different types of monsters. Lurking 
in the lower depths are trolls, ores, snakes, dwarfs, wolves, 
newts, many others and, most horrible of all, a Dragon 
capable of inflicting fatal wounds. 

On your side you have help, if you can find your way, from a 
fire demon and from several types of spells. Be careful how 
you use the spells, however, as they can sometimes break 
down and leave you deeper in the 
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How to play 

Press the first letter of the command of your choice as the new 
menu is offered to you. 

You will be told of the consequences of your choice and then 
you are on your own. 

By the way, if you live, a higher score will be given. 
The Program 



10 REM DRAGON DUNGEON 

15 NODE 2 

20 GOSUB 2900:G0SUB 1600:1$="" 

25 GOTO 100 

30 FOR ZQ=1 TO 500: NEXT ZQ: RETURN 

100 REN NAIN NEW LOCATION LOOP 

110 GOSUB 2500: GOSUB 30 

115 IF LV=0 THEN GOSUB 1500: GOTO 900 

120 IF MF=1 THEM GOTO 200 

130 GOSUB 1000 

140 GOSUB 3400: IF I$="L" THEN PRINT"That 

sounds interesting": GOSUB 30: GOTO 130 
142 IF I*="P" THEN PRINT"ho hum....":GOS 
UB 30: PRINT" I a di da...": GOSUB 30:MF=1:P 
M=PM+ I NT ( RND ( 1 ) *4 ) : PS=PS+4 : GOTO 200 
144 IF I$="T" THEN MM=1 : PRINT"Thi s can b 
e a little unpredictable" : GOSUB 30s GOSUB 

2800: GOTO 100 
150 F=0:FOR L=l TO LEN(MO*):IF MID* (MO*, 
L, 1)=I* THEN F=l 

160 NEXT L:IF F=0 THEN PRINT"You can't m 
ove in that direction" : GOSUB 30: GOTO 130 
170 IF I*="U" THEN LV=LV~1 : PRINT" You * 1 1 
get out of here yet ": GOTO 195 
ISO IF i*="D" THEN 1 v=l v+1 : PRINT" Of f goe 
s the hero, in search of yet more advent 
ure": GOTO 195 

190 PRINT"The road goes ever on, anon." 
195 GOSUB 30: GOTO 100 
200 REM Monster encountered here 
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210 PR I NT "You just bumped into something 
" :G0SUB 30 

220 IF RNDdXO. 02 THEM df =2: GOSUB 3000:: 
PRINT" You' re not going to believe this, 
it's the DRAGON" : GOSLJB 30: PR I NT "Have fun 

":G0TD 

240 

230 GOSUB 1700 
240 GOSUB 30 

250 GOSUB 1100: GOSUB 3400: IF i$<>"S" AND 
I*<>"D" AND I*<>"R" AND I*<>"M" THEN GO 
TO 250 

260 IF I*="S" THEM WP=1: GOSUB 2000 
270 IF I*="D" THEN WP=2: GOSUB 2000 
280 IF I*="R" AND RNDdXO. 35 THEN PRINT 
"You got away -from ":PRINT"the ";DJ*:G0T 
450 

290 IF i*="R" THEN PRINT" You couldn't ge 
t away -from it" 
300 IF i*<>"M" THEN GOTO 320 
310 GOSUB 2200: ON op GOSUB 2800,2700,210 


320 IF mfOO THEN GOTO 490 
330 IF df=2 THEN df=l: GOSUB 1200 
340 GOTO 100 

450 REM Player left DRAGON wounded 
460 IF df=2 THEN df =0: ds=ms: dm=mm 
470 GOTO 100 

490 IF df=2 THEN df =0: ds=ms: dm=mm 
500 REM Monster attacks player 
510 GOSUB 3300 

520 IF PS<=0 THEN GOSUB 1400 .-GOTO 900 
590 GOSUB 30: IF mf >0 THEN GOTO 250 
600 IF df=2 THEN df =0: ds=»ms: dm=mm 
610 GOTO 100 
900 REM End of game routine 

999 END 

1000 REM Main menu 
1010 MODE 2 

1020 PRINT"Choose what you want to do" 

1040 LOCATE 1 , 5: PRINT"Movement :" 
1045 LOCATE 5, 8: GOSUB 2600 
1050 LOCATE 5, 12: PRINT"Look " 
1060 LOCATE 5, 14s PRINT "Pause" 
1070 LOCATE 5, 16: PR I NT "Tel eport " 
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1080 LOCATE 1 , 21 : PRINT" Type the first le 
tter of the command of your choice" 

1099 RETURN 

1100 G0SUB 2500 
1110 MODE 2 

1120 PRINT"Choose what you want to do" 

1140 LOCATE 5, 7: PR I NT "Sword fight" 

1150 LOCATE 5,9:PRINT"Dagger fight" 

1160 LOCATE 5, ll:PRIMT"Run away" 

1170 LOCATE 5, 13: PRINT"Magic spell" 

1 1 75 LOCATE 1,16: GOSUB 1 800 

1177 LOCATE 1,18: GOSUB 2300 

1180 LOCATE l,21:PRINT"Type the first le 

tter of the command of your choice" 

1199 RETURN 

1200 REM Player has killed the DRAGON 
1210 MODE 2 

1220 LOCATE 1 , 5: PRINT" Wei 1 played brave 

knight" 

1230 LOCATE 1 , 7: PRINT" You have slain the 

foul beast" 
1240 LOCATE 1 , 9: PRINT "The Dragon, terror 

of your people, has fallen in battle" 
1245 GOSUB 30: GOSUB 30 

1250 LOCATE 1,12:PRINT"< and your sc 

ore hath mysteriously risen )" 

1260 sc=sc+200 

1270 df=l 

1299 RETURN 

1400 REM The Player managed to get kille 

d 

1410 MODE 2 

1420 PRIMT"Now comes that moment in the 

life of every truly gallant knight" 

1430 PRINT: PRIMT"When the court meets fo 

r a great feast and all make merry and e 

at and drink their fill." 

1440 GOSUB 30: PRINT: PRINT" except you 

that is " 

1450 PRJNT: PRINT" I'm afraid that you jus 

t died. " 

1460 PRINT: PRINT"You managed to amass th 

e truly noble score of " ; sc 

1470 LOCATE 1 , 21 : PRINT" Why not try diffe 

rent tactics next time" 
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1480 G05UB 30:G0SUB 30:G0SUB 30 

1499 RETURN 

1500 REM The Player escaped 
1510 CLS 

1520 PRINT" You' ve clone it, against all o 

dels" 

1530 PRINT"You've actually escaped -from 

the dreadful place" 

1540 IF df=0.THEN PR I NT "You didn't 'Quit 

e' manage to stay around long enough to 

kill the Dragon. ": GOTO 1560 

1545 PRINT"You even managed to kill the 

foul, cruel and awfully nasty Dragon on 

the way out" 

1557 PRINT:PRINT"That won't be altogethe 
r bad for your bank balance" : GOSLIB 30: PR 
INT: PR I NT "or your score" 

1558 sc=sc+400 

1560 LOCATE 1 , 16: PRINT" YOU HAVE SCORED " 
SSC; " points" 

1570 PR.INT"Plus a small psychological bo 
nus":G0SUB 30: PRINT" You' re alive" 

1599 RETURN 

1600 REM set RAND variable by maze numbe 
r requested 

1610 MODE 2 

1620 LOCATE 1,11 

1630 INPUT "Maze number " ; n 

1640 LOCATE 1, 18 

1650 PRINT"Write this number down" 

1660 PRINT: PRINT"so that you can have th 

e" 

1670 PRINT: PR I NT "same mane again if you 

lose" 

1680 RANDOMIZE n 

1699 RETURN 

1700 REM Choose a random monster 
1705 1=3*1 v: IF 1 >20 THEN 1=20 

1710 n=INT<RND(l)*l+l) : m=INT (RND ( 1 ) #20+1 

) 

1720 DJ*=a*(M)+" "+M*(N) 

1730 MS=INT<RND(1)*MS(N)+1) 

1740 MM=INT(RND(1)*MM(N>+1> 

1750 MC=MC(N) 

1760 NS=MS+MM*4*MC/100 

1799 RETURN 
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1800 REM F'rint monster statistics 

1810 PRINT'The ";DJ$; 

1820 PRINT" is "; 

1830 IF ms<4 THEN PR I NT "nearly dead": GOT 

1899 

1840 IF ms<10 THEN PR I NT "badly wounded"; 

GOTO 1899 

1850 IF ms>ps THEN PR I NT "still dangerous 

ll 

1860 IF msOps THEN PR I NT "still here" 

1899 RETURN 

2000 REM reduce MS by player -fighting 

2010 PR I NT'" You attack the monster ":R 

DSUB 30 

2020 I F RND < 1 ) * wp < - 4 THEN PR I NT " . ■ . „ b u 
t miss" : GOTO 2099 
2030 PRINT". . . . and hit, " 
2040 n= I NT (RND ( 1 ) *ps/wp+l ) 

2050 IF n<>ms/4 THEN PRTNT"causing a srna 
11 amount of damage' 1 : GOTO 2090 
2060 IF n>ms/2 THEN PRINT"causi ng seriou 
s damage to the monster" 

2070 IF n>=nis THEN PRINT: PRINT"The monst 
er dies from it's wounds" 
2090 ms=ms-n:IF ms<0 THEN ms=0 
2095 IF ms<>0 THEN sc=sc+ns: mf =0: IF df=2 
THEN GOSUB 1200 

2099 RETURN 

2100 REM Reduce MS by player magic 

2110 PRINT M Waving your hands and chantin 
g": PR I NT "You begin to summon the fire de 
mon " 
2120 IF RND(l)*pm<mm THEN PRINT"but your 

spell is disrupted by your foe":PRINT"a 
nd the demon returns" : PRINT"to the hells 

where it be 
longs": GOTO 2199 
2130 PRINT"and gradually the demon forms 

around your opponents body" 
2135 GOSUB 30 
2140 n=INT(RND(l)*pm+l> 
2145 ms=ms-ns pm=pm-~n 
2150 IF ms<0 THEN ms=0 

2160 IF ms=0 THEN PRINT"The ";DI *?" is 
slain by the fire demon": LET sc=sc+ns:mf 
=0:IF df=2 THEN GOSUB 1200 
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2199 GOSUB 30: RETURN 

2200 REM Set Teleport, Heal, Attack menu 
2210 MODE 2 

2220 LOCATE 2, 6: PR I NT "SELECT TYPE OF SPE 

LL" 

2230 LOCATE 2, 7: PR I NT "===========«=====» 

2240 LOCATE 1 , 1 1 : PRINT"T) el eport " 

2250 LOCATE 1 , 13: PRINT "H) eal " 

2260 LOCATE 1 , 15: PRINT" A) ttack " 

2265 LOCATE 1,1 7: GOSUB 1800 

2270 LOCATE 6,19: PR I NT " Pr ess initi a 1 1 e t 

ter to select" 

2280 BOSUB 3400 

2290 op=INSTR ( "THA" , i $>) 

2298 IF op=0 THEN GOTO 2280 

2299 RETURN 

2300 REM Display player characteristics 
2310 PR I NT "You are -feeling "; 

2320 ON INT(ps/5) GOTO 2340,2350,2360 

2330 PRINT"very strong": GOTO 2370 

2340 PRINT" very weak": GOTO 2370 

2350 PR I NT "weak": GOTO 2370 

2360 PR I NT "-fairly strong" 

2370 IF pm=0 THEN PRINT"and you have no 

magic le-ft":G0T0 2399 

2380 IF pm<5 THEN PRINT" You' re running o 

Lit o-f magic" 

2399 RETURN 

2400 REM Read names and adjectives 
2410 RESTORE 9000 

2420 FOR 1=1 TO 20 

2430 READ a$(L):NEXT 1 

2450 FOR 1=1 TO 20 

2460 READ m* CD: NEXT 1 

2470 FOR 1=1 TO 20 

2480 READ ms ( 1 ) , mm ( 1 ) , mc ( 1 ) 

2490 NEXT 1 

2499 RETURN 

2500 REM Generate MO* movement string 
2505 IF 1*="" THEN I*="F" 

2510 FOR 1=65 TO ASC ( i *) : a=RND ( 1 ) : NEXT 1 
2520 IF RND(1><0.3 THEN mo$="N" ELSE mo* 

-_. II II 

2530 IF RNDUK0.3 THEN mo$=mo$+"S" ELSE 
nio$=mo$+" " 
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2540 IF RND (1X0. 3 THEM mo$=mo$+"E" ELSE 

mo$=(no$+" " 
2550 IF RND (1X0. 3 THEM M0*=M0*+" W" ELSE 

M0*=M0*+" " 
2560 IF RND (1X0. 07 THEN M0*=M0*+"U" ELS 
E M0*=M0$-f-" " 

2570 IF RND (1X0. 07 THEN M0*=M0*+"D" ELS 
E MQ*=M0*+" " 

2580 IF MQ*=" " THEN GOTO 2520 
2590 IF RND (1X0. 4 THEN MF=1 

2599 RETURN 

2600 REM DESCRIBE LOCATION EXITS 
2610 PR I NT "You can move : " ; mo* 

2699 RETURN 

2700 REM Player chose the Heal spell 
2710 PRINT"You being to heal yourself" 
2720 1=INT(RND<1>*3+1) 

2730 IF 1=1 THEN PRINT"but your spell la 
cks something" 

2740 IF 1=3 THEN PR I NT "wow ! what a powe 
r-ful healing spell" 
2750 n=INT(RND(l)*pm+l) 
2760 ps=ps+n*l : pm=pm-n 

2770 IF pm=0 THEN PR I NT "You have used up 
all your magic" 

2799 RETURN 

2800 REM Teleport out of battle routine 
2810 IF RND(l)*pm<mm*1.5 THEN PR I NT "Your 

teleport spell -fails": GOTO 2899 
2820 PRINT" Your material -form shimmers a 
nd then vanishes" 

2830 GOSUB 30: PRINT"You re-appear somewh 
ere else" 

2840 RANDOMIZE TIME 
2850 PRINT"The surroundings look strange 

ll 

2860 IF RND<0.4 THEN PRINT"You've moved 

•further down into the dungeon ": 1 v = l v+INT 

(RND(1)*4+1) 

2870 m-f=0 

2880 IF df=2 THEN d-f=0 

2899 RETURN 

21900 REM Setup all variables/arrays 

2920 DIM a*(20),m*(20) 

2930 DIM ms(20) ,mm(20) ,mc (20) 

2940 GOSUB 2400 
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2945 dm=30:dc=75sds=25 

2950 df=0 

2960 ps=203pm=20 

2970 sc=0:lv=3 

2980 mf»0 

2999 RETURN 

3000 REM Transfer DRAGON statistics 
3010 fnm=dm: mc=dc: ms=ds 

3040 ns=0 

3050 DJ*="awe inspiring, horrendous Drag 

on" 

3099 RETURN 

3100 REM the monster attacks (fighting) 
3105 PR I NT" The monster claws and bites a 
t you": GOSUB 30 

3110 IF RND(1)<0.4 THEN PR I NT" but misses 

you": GOTO 3199 
3120 PRINT"and hits you" 
3130 n=INT(RND(l)+ms+l) 
3140 ps=ps-n:IF ps<0 THEN ps=0 
3150 IF ps<5 THEN PRINT" You" re getting p 
retty badly hurt " : PRINT"better watch you 
r step" 

3199 RETURN 

3200 REM the monster attacks (magically) 
3205 PR I NT" The monster begins to summon 
a demon": GOSUB 30 

3210 IF RND(l)*mm<pm THEN PRINT" the demo 
n of cold is bani shed ": GOTO 3299 
3220 n = INT(RNDU)*mm+l) 
3230 ps=ps~n:mm=mm-n 

3240 IF ps<>0 THEN ps=0: PRINT" You froze, 
ii 

V • • ■ 

3250 IF ps<5 THEN PRINT "You" re nearly de 

ad" 

3260 IF ps>=5 THEN PR I NT " Br rr. That was 

chi 1 1 y" 

3299 RETURN 

3300 REM Choose monster attack type 
3310 IF RND(l>*ps>10*RND(l)*ms THEN PRIN 
T"The monster runs away from you":mf=0:s 
c=sc+ns:G0T0 3399 

3320 IF RND(l)*100<mc THEN GOSUB 3200: GO 

TO 3399 

3330 GOSUB 3100 

3399 RETURN 
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3400 REM Read a character from KBD: 
3420 i*=INKEY* 

3425 IF i$:::^" a n AND i$<> M z M THEN i *=CHR* 
( ASC (i *) -ASC ( "a" ) +ASC ("fi")) 
3430 IF i$<"A" OR i*>"Z" THEN GOTO 3420 
3499 RETURN 

9000 DATA vicious, nasty, enormous, violent 

9001 DATA si y,undead, beaut i ful , evi 1 

9002 DATA rotting, si imy, armoured 

9003 DATA terrible, -foul ', bloody 

9004 DATA fearsome,, hypnotic , dangerous 

9005 DATA sadi sti c , cruel , pi ti ful 
9010 DATA ore, kob old., newt, wolf 
9015 DATA eagle, dwarf , trol 1 , balrog 
9020 DATA el f , wi ght , ki ng , bear 

9025 DATA black r i der , snake, devi 1 , wi 1 1 o 

•" the wisp 

9027 DATA si ime, giant , venus flower, blowf 

iy 

9030 DATA 1 , ,0,5, 20 ,75,1,50,1 00 , 20 , , 

9040 DATA 15,5,20,15,0,0,30,0,0,15,20,50 

9050 DATA 10,40,25,40,100,2,30,10,20,35, 

, 

9060 DATA 20 , 40 ., ,10, ,0,4,20, 40 , 20 ,70,1 



9070 DATA 4 , , , 35 , , , 20 , 10, 30 ,10,1 , 75 



SNIPER 




As you will know, your Amstrad can produce figures for use in 
many of your games programs. We have used him here, but 
not in the nicest way. 

He is running for his life. 

The figure will appear on the screen, sometimes for a few 
seconds, sometimes for a split second, and you must line up 
your rifle and bring him down before he vanishes again. 

It's not nice, as we said, but then again he might be an 
advance man from a foreign planet and we all know what a 
nuisance they can be. 



How to play 

When the character appears use ARROW keys to move and 
the COPY key to fire. 
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The program 



10 REM SNIPER 

20 ENV 1,8,-1, 1 

30 ENT 1,8, 1, 1 

40 ENV 2 , 30 ,-3,10,15,-2,5 

50 DEFINT A-Z 

60 BASE*=" "+CHR* (160)+" " 

70 SPIES=0 

80 HITS=0 

90 SPYFLAG=0 

100 SPYCH=250 

110 REM NEW SNIPER LOOP 

120 MY=0 

130 BASE=10 

140 MODE 

150 LOCATE 1,25 

160 PAPER 7: PEN 4 

170 FDR Q=l TO 20 

180 PRINT CHR*(127) ? 

190 NEXT Q: PAPER 

200 BORDER 5 

210 INK 2,7 

220 PEN 11 

230 LOCATE BASE- 1 , 24: PRINT BASE*; 

240 REM MAIN LOOP 

250 IF MYOO THEN GOSUB 580 

260 FLAB=0 

270 IF INKEY(8)=0 AND BASE>2 THEN BASE-B 

ASE-1:FLAG=1 

280 IF IMKEY(1)=0 AND BASE- 19 THEN BASE- 

BASE+1:FLAG=1 

290 IF FLAG=1 THEN PEN 1 1 : LOCATE BASE-1, 

24: PRINT BASE*; 

300 IF INKEY (9)=0 AND MY-0 THEN MY=23:MX 

=BASE : SOUND 1 30 ,0,50,15,2,0,15 

310 GOSUB 410 

320 IF SPIESO10 THEN GOTO 240 

330 REM ALL SPIES RUN AWAY OR SHOT 

340 CLS:PRINT"ALL SPIES HAVE BEEN KILLED 

II 

350 LOCATE 1 , 5s PRINT" YOU HIT ";HITS;" OF 

THEM" 
360 IF HITS>8 THEN PRINT" ( there may 

be a medal in this for you )" 
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370 IF INKEY*=" " THEM GOTO 370 

380 IF INKEY$<>" " THEN BOTO 380 

390 RUN 

400 END 

410 REM PERFORM SPY ACTIONS 

420 IF SPYFLAG=1 THEN GOTO 460 

430 IF RND(1)>0.007 THEM RETURN 

440 SPYPOS---- 1 NT ( RND ( 1 ) # 1 ) +6 : SPYD I R= 1 : I F 

RIMD(l) >0.5 THEN SPYDIR=-1 

450 GOTO 570 

460 REM SPY IS PRESENT 

470 IF SPYP0S=1 OR SPYP0S==19 THEN LOCATE 

SPYPOS+ 1 , 5 : PR I NT " " ", : GOTO 560 
480 IF RND<1)>0.09 THEN GOTO 550 
490 SOUND 1,0,10,3,1,1,6 
500 SPYPOS-SPYPOS+SPYD I R 
510 LOCATE SPYP0S,5 
520 PEN 3 

530 SPYCH=501-SPYCH 
540 PRINT " ";CHR$(SPYCH) 5 " "? 
550 RETURN 

560 PR I NT " " ; : SP I ES=SP I ES+ 1 
570 SPYFLAG=1~SPYFLAG: RETURN 
580 REM MOVE MISSILE UP 
590 LOCATE MX, MY: PRINT " "; 
600 MY=MY-1 

610 IF MY=0 THEN RETURN 
620 LOCATE MX, MY 

630 IF MX=SPYP0S+1 AND MY=5 THEN HITS=HI 
TS+1:PRINT " " ; : SPYFLAG=0: MY=0: SOUND 3,2 
00+20*SPIES, 15: SPYPOS=0: RETURN 
640 PEN 9: PRINT CHR*(148); 
650 RETURN 



WAR PLAN 




Twenty enemy units are 'hidden' on the screen and must be 
'knocked' out by your missiles in as few shots as possible. You 
have only fifty missiles so you will have to use them sparingly, 
and accurately, or you will be over-run by the opposition. 

If, after firing, you have not hit your target you will receive 
intelligence reports from your forward observers in the field. 

Your forward troops will only be able to 'search' eight 
surrounding squares after a miss but, if you make a direct hit 
then twenty four surrounding squares will be scanned for 
further enemy targets. 



How to play 

Use the letter and number keys to define the co-ordinates you 
have chosen and the ENTER key to launch your missiles. 
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The program 



10 REM WAR-PLAN 

20 GQSUB 380 

30 SYMBOL AFTER 129 

40 SYMBOL 129,0,32,96,120,96,112,136,112 

50 SYMBOL. 130,0,0,0,0,0,0,0,0 

60 SYMBOL 131, , 62 ., 62 , 62 , 32 , 32 , 32 , 32 

/O SYMBOL. 1 32 , ., 1 36 , 80 , 32 , 32 , 32 , 80 , 1 36 

80 GOSUB 440 

90 GOSUB 510 

100 GOSUB 860 

110 GOSUB 1010 

120 GOSUB 1170 

130 IF NME<X,Y)=0 THEN GOSUB 1210: GOTO 1 
60 

140 IF NME(X,Y>=-1 THEM GOSUB 1240: GOTO 

160 

150 GOSUB 1320 

160 IF NME<X,Y)=0 THEN GOSUB 1460 ELSE G 

OSUB 1380 

170 SR=SR-1:IF SR>0 THEN M*="You have "+ 

STR$(SR>+" shots left": GOSUB 630: PRINT 

180 IF SR>0 AND ER>0 THEN GOTO 110 

190 REM PLAYER IS OUT OF SHOTS 

200 REM OR HAS DESTROYED ALL NME UNITS 

210 IF ER=0 THEN GOSUB 1540: GOTO 90 

220 M$="Central Office advises you.":GOS 

UB 630: PRINT 

230 M$="You have used up all our missile 

s": GOSUB 630: PRINT 

240 M$="This is where the enemy was hidi 

ng": GOSUB 630: PRINT 

250 WINDOW 1,40, 1,20s GOSUB 930: WINDOW 1, 

40,21,25 

260 M$="You have scared : "+STR* (sc) s GOSU 

B 630: PRINT: FOR L=l TO 1000: NEXT L 

270 IF SOHS THEN M$="Which is the high 

score": GOSUB 630: HS$=N$: HS=SC: PRINT 

280 REM Ask IF PLAYER WANTS ANOTHER GAME 

290 WINDOW 1 , 40, 1 , 25: CLS: LOCATE 1,11 

300 M*=" Commander "+HS*+" has the high s 

core": GOSUB 630 
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310 LOCATE 1, 13: M$=" Which is "+STR*(hs)+ 

" points" sGOSUB 630 

320 LOCATE 1,17s LET M$="Does anyone want 

another game <Y/N> ?":G0SUB 630 
330 I*=INKEY*: IF I*<>"" THEN GOTO 330 
340 I*=INKEY4»: IF 1*="" THEN GOTO 340 
350 IF l*="y" OR I*="Y" THEN GOTO 80 
360 IF I*="n" OR I*="N" THEN WINDOW 1,40 
, 1,25:CLS:EIMD 
370 GOTO 330 

'380 REM SET UP FOR A NEW GAME 
390 HS«0:HS*="" 
400 MODE 1 
410 BORDER 13 
420 DIM NME (14, 24) 
430 RETURN 

440 REM SET UP FOR A NEW PLAYER 
450 WINDOW 1,40, 1,25 
460 SC=0:CLS 
470 LOCATE 6, 1 1 : PRINT" What is your name 

II n 

480 INPUT n*:IF N$="" THEN GOTO 470 

490 WV=1 

500 RETURN 

510 REM SET UP FOR NEW WAVE 

520 WINDOW 1,40, 1,25: CLS: LOCATE 1,9:M*=" 

Commander "+N$+" . " : GOSUB 630 

530 LOCATE 1 , 1 1 : M$="Central Office advis 

es you. ":GOSUB 630 

540 LOCATE 1 , 13: M*=" Attack enemy immedia 

tely. "sGOSUB' 630 

550 LOCATE 1 , 15: M*="Repeat , ATTACK. ATTA 

CK. ":GOSUB 630 

560 LOCATE 1 , 21 : M$=" " : FOR L=l TO 10:M*=M 

*+CHR*(10):NEXT L:GOSUB 630 

570 FOR X=l TO 14: FOR Y=l TO 24:NME(X,Y> 

=0:NEXT Y:NEXT X 

580 ER=20:F0R L=l TO ER 

590 X=INT(RND(l)*10+3) : Y=INT (RND ( 1 ) *20+3 

) : IF NME ( X , Y)< >0 THEN GOTO 590 

600 IF L<3* THEN NME(X.,Y>=-1 ELBE NME ( X , Y 

)=1 

610 NEXT L:SR=50 

620 RETURN 

630 REM Teletype emulator 

640 FOR L=l TO LEN<M*> 
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650 PRINT MID*(M*,L,1)5 

660 SOUND 1,0,5,7,0,0,10: SOUND 1,0, 3 

670 IF SQ(1) >127 THEM GOTO 670 

680 NEXT L 

690 RETURN 

700 REM SCAM LOCALLY 

710 NN=0 

720 FOR X=TX--1 TO TX+1 

730 FOR Y=TY-1 TO TY+1 

740 NN=MN+ABS ( MME ( X , Y ) ) 

750 NEXT Y:NEXT X 

760 NN=NN~AB5<NME<TX,TY> ) 

770 RETURN 

780 REM SCAN LARGER AREA 

790 NN=0 

800 FOR X=TX-2 TO TX+2 

810 FOR Y=TY~2 TO TY+-2 

820 NN=NN+ABS (NME ( X , Y) ) 

830 NEXT Y:NEXT X 

840 NN=NN-ABS(MME(TX,TY) ) 

850 RETURN 

860 REM LABEL MAP AREA 

870 W I NDOW 1 , 40 , 1 , 20 : CLS 

880 LOCATE 12, 1 : PRINT" 1 1 1 1 1 1 1 1 1 12" : LOCAT 

E 3 , 2 : PR I NT " 1 234567890 1 234567890 " 

890 LOCATE 1,3 

900 FOR L=ASC("A") TO ASCC'J") 

910 PRINT CHR$(L) :NEXT L 

920 RETURN 

930 REM FILL IN ALL MME UNITS 

940 FOR X=3 TO 12 

950 LOCATE 3,X 

960 FOR Y=3 TO 22 

970 PRINT CHR*(130+NME<X,Y) ) 5 

980 NEXT Y 

990 NEXT X 

1000 RETURN 

1010 REM GET A LEGAL SHOT 

1020 WINDOW l,40,21,25:M*="Enter target 

far missile? " : GOSUB 630: PRINT 

1 030 X= 1 : A= 1 : B=0 : C= 1 : W I NDOW 1 , 40 , 1 , 20 

1040 LOCATE 1 1 , 15: PRINT" C " J CHR* (64+X) ! " 

"5A+B5" 1 "i 
1050 I*=INKEY*:IF 
1060 I*=INKEY*sIF 
1070 IF I*<"0" OR 



I*<>"" THEN GOTO 1050 
I $=•••• THEN GOTO 1060 
I*>"9" THEN GOTO 1100 
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1080 IF C=l THEN B=A*10: A-ASC ( I*> --ASC < "0 
"):£>0:G0T0 1040 

1 090 C= 1 : B= A* 1 : A=ASC ( I $ ) -ASC ( " " ) : GOTO 
1040 

1100 IF I*=CHR*(13) THEM GOTO 1140 
1110 IF I*>="a" AND i*<="j" THEN i*=CHR* 
( ASG ( i * ) -ASC ( " a " ) +ASC ("A")) 
1120 IF i*<"A" OR I*>"J" THEN PRINT CHR* 
(7) 5 :GOTO 1040 

1 1 30 X = ASC ( I * ) -ASC ( " A " ) + 1 : GOTO 1 040 
1140 Y=A+B+2:X=X+2:IF X=2 OR Y<3 OR Y>22 
THE M ft= i . b=0 : X=0 : PR I NT CHR* ( 7 ) ; : GOTO 1 
30 

1150 LOCATE 11, 15: PRINT" 
5 : WINDOW 1,, 40,21,25 
1160 RETURN 
1170 REM UPDATE MAP 

1 1 80 W I MDOW 1,40,1, 20 : LOCATE Y , X : PR I NT C 
HR$(132> 5 

1190 WINDOW 1,40,21,25 
1200 RETURN 

1210 REM PLAYER MISSED 

1220 M*="The missile missed the enemy" :G 
OSUB 630: PRINT 
1230 RETURN 

1240 REM PLAYER HIT A COMMAND BASE 
1250 M*="You have hit the command base": 
GOSUB 630: PR I NT 

1260 IF er>2 THEN m$="...but it is not d 
estroyed": GOSUB 630: PRINT: GOTO 1310 
1270 M*="..» and you destroyed i t ": GOSUB 
630: PRINT 
1 280 SC=SC+500 
1290 NME(X,, Y)=0 

1300 ER=ER-1 

1310 RETURN 

1320 REM PLAYER HIT AN ENEMY UNIT 

1330 NME(X,Y)=0 

1340 M*="You have hit an enemy unit":GQS 

UB 630: PRINT 

1350 M*="and it is destroyed" : GOSUB 630:: 

PRINT: ER=ER-1 

1360 SC=SC+20 

1370 RETURN 

1380 REM SEARCH AROUND NEARBY 
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1390 M*=" Intel 1 i gence reports : 

" +CHR$ (13) +CHR* ( 1 ) 

1 4 t x ~ x :TY=Y:G0SUB 7 

1410 IF NN=0 THEN M*=M*+ n no nearby activ 

ity" 

1420 IF nn>0 AND nn<Z THEN m* = m*H- n A smal 

1 amount of nearby activity" 

1430 IF nn>=-3 THEN m*=m*+ n A large amount 

of nearby activity" 
1440 WINDOW 1,40, 2 1,25: GOSUB 630s PRINT 
1450 RETURN 

1460 REM search around after a hit 
1470 m*=" Intel li gence reports : 

"+CHR*(13)+CHR*(10> 
1480 t>c=x::ty=y: GOSUB 780 

1490 IF nn=0 THEN M$=M$+ M no local ac tivi 
ty" 

1500 IF nn>0 AND nn<6 THEN m*=m*+"a smal 
1 amount of local activity" 
1510 IF nn>5 THEN m* ss m*+"a largo? amount 
of local activity" 

1520 WINDOW 1,40, 2 1,25: GOSUB 630s PRINT 
1530 RETURN 

1540 REM PLAYER HAS WIPED OUT A WAVE 
1 550 W I ND0W 1 , 40 , 1 , 25 : CLS 

1560 LOCATE 1 , 1 1 : M*= M Cental Office advis 
es you. n : GOSUB 630 

1570 LOCATE 1 , 13: m*="Farthcoming enemy c 
OLinterattack. " : GOSUB 630 

1580 LOCATE 1 , 15s m$="Prevent at all cost 
s. ": GOSUB 630 

1590 LOCATE 1 , 19: m*==" Your score so far i 
s : "+STR*(sc)+ n points. ": GOSUB 630 
1600 LOCATE 1 , 21 : m*=" " : FOR 1=1 TO 10:m*= 
m*+CHR*(10) :NEXT 1 : GOSUB 630 
1610 RETURN 



S.I.M.P.E.R. 




At last, you say, in a computer book there must be an acronym 
somewhere because the whole business is full of Poke, Peek, 
Byte and Ram. Well, our title stands for Semi Intelligent 
Machine Psychologist with Extendable Response. 

What, you ask, has that got to do with the time of day? 

We will explain. 

This is your chance to use your computer to make fools out of 
all your friends, party guests, loved? ones etc. Your 
SIMPERING Amstrad will ask questions and respond to your 
answers with 'semi-intelligent' comments. Can you take the 
risk? 



How to play 

Your computer will ask you to enter statements about 
yourself. 
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Type in your comments, making them as long as possible, 
and your Amstrad will make it's considered comment on your 
character. 

It's a little like having a 'shrink' at home. 



Programming Hints 

We have given you a selection of appropriate data (words) 
that might make fun for your family but you can change, add 
or delete these lines and cause fun and games at your next 
party. 

If you have added a memory expansion unit to your computer 
you can add to the data statements from lines 520 onwards 
and give the computer a much wider choice of response. 



The Program 



10 REM S. I.M.P.E.R. 

20 Q*="Hello. My name is SIMPER, I'm her 

e to discuss your problems. Why do you e 

njoy life ?" 

30 bs=G 

40 os=0 

50 PRINT q*: PRINT 

60 INPUT a$:IF a$="" THEN GOTO 50 

70 IF LEFT* (a* ,3)=" YES" THEN PR I NT" At la 

St, some determination" : q$="Do you often 

behave quite so firmly ?" : GOTO 50 
80 IF LEFT*<a*,6)="PARDQN" OR LEFT*(A$,2 
>="EH" OR A*«="WHAT" THEN GOTO 50 
90 IF A*=*"N0" THEN PR I NT "Short and to th 
e point" : IF 0S=0 THEN PRINT"Give me some? 
thing to go on": GOTO 50 
GOSUB 300 

UOO THEN GOSUB 360: GOTO 

0SO0 THEN U=0S:0S=0:G0SU 



1 00 


GO! 


BUI 


3 


250: 


110 


A*= 


r: n 


>i . 


+-A* 


120 


IF 


V* 


=0 


AND 


50 










1 30 


IF 


V- 


=0 


AND 


B 360: GOTO 


50 
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140 IF V=0 THEM GOSUB 460: GOTO SO 
150 GOSUB 410:0S=U 
160 GOTO 50 

170 REM SEARCH FOR T$ IN A$ 
1B0 F=0 

190 IF A*=T$ THEN F=l: RETURN 
200 IF LEN(A*XLEN(T*) THEN RETURN 
210 FOR L=l TO LEN<A*)-LEIM(T*)+1 
220 IF MID*(A*,L,LEN(T*>)=T* THEN F=l 
230 NEXT L 
240 RETURN 

250 REM RETURN VERB NUMBER IN V 
260 V=0: RESTORE 520 
270 READ NnREAD T$:FOR Q=l TO N 
280 READ T*: GOSUB 170: IF F=l THEM V=Q 
290 NEXT Q: RETURN 

300 REM RETURN NOUN NUMBER IN U 
310 U=0: RESTORE 550 
320 READ N:READ T*:FOR Q=l TO N 
330 READ T$: GOSUB 170: IF F=l THEN U=Q 
340 NEXT 0. 
350 RETURN 

360 REM FIND REPLY SENTANCE 
370 RESTORE 790 

380 FOR L=0 TO ( U- 1 ) *3+ I NT ( RND ( 1 ) *3 ) 
390 READ Q*:NEXT L 
400 RETURN 

410 REM CHOOSE SENTANCE. 
420 RESTORE 590 

430 FOR L=0 TO ( V-l ) *3+INT (RND ( 1 ) *3) 
440 READ Q$:NEXT L 
450 RETURN 

460 REM CONJURE UP A RESPONSE 
470 BS=BS+1:IF BS=7 THEN PRINT"SORRY ... 
YOUR TIME IS UP": PR I NT: PR I NT: PR I NT: PR IN 
T:END 

480 RESTORE 980 
490 FOR L=l TO BS 
500 READ Q*:NEXT L 
510 RETURN 
520 DATA 8 
530 DATA ! 
540 DATA LOVE , HATE , OWN , WANT , FLY , WALK , TAR 

E,BIVE 
550 DATA 9 
560 DATA ! 
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570 DATA CAR , COMPUTER, HOLIDAY , MONEY,, TEL F 

, MUSIC, VIDEO, FOOD, FISH 

580 REM REPLY DATA 

590 DATA How do you know that it's love? 

600 DATA What does it -feel like to be in 
1 ove ? 

610 DATA Why do you think you fee] like 

that ? 

620 DATA Are you sure that you "re not he 

ing over hasty ? 

630 DATA Well i f you're sure about it th 

en it's good for you 

640 DATA Is this -feeling very intense. D 

o you really mean it ? 

650 DATA That's very progressive of you, 
wouldn't 'CARE FOR' be a better way of' 

putting it ? 

660 DATA But do you own your soul . or ha 

ve you traded it with consumer society ? 

670 DATA Please clarify yourself. Love o 

r want. The first is more polite. 

680 DATA That's very impulsive 

690 DATA I Want.... I Want... Belloc has 

a suprise for you 

700 DATA Do you sometimes wish that you 

could fly. Aeroplanes are so expensive. 

aren't they ? 

710 DATA Fly me to the moon,,. „ Do you thi 

nk that you'd enjoy that ? 

720 DATA Nothing beats shank's pony, wal 

king is very good exercise 

730 DATA It might be quicker by car 

740 DATA Perhaps if you said please firs 

t it might help, Your ' e showing that pro 

gressive trait again 

750 DATA How would you take that ? 

760 DATA Giving is good for the characte 

r. Do you do a lot of it ? 

770 DATA Christmas is a time for giving 

780 DATA Do you recieve more than you gi 

ve ? Be honest. 

790 DATA Do you like fast cars, are you 

good mechanically, do you like motorways. 

They're too fast for me 
800 DATA You obviously like computers. I 
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can tell that you are a natural at the? 
keyboard » 

810 DATA Do computers worry you in any w 
ay ?, Isn't it a bit unnerving talking to 

a camp ut er 1 i k e t his ? 
820 DATA Would you please take me with y 
ou an your holiday- That's a great way t 
o get away from it all 

830 DATA Do you like to go abroad, or pe 
rhaps you prefer to stay at home 
840 DATA Money is everyone's favourite p 
roblem. Talking of money I have these ra 
ther large fees-... 

850 DATA How do you earn you money. Are 
you by any chance a fortune teller ? 
860 DATA What it must be to be a million 
aire. All that caviar* It's enough to ma 
ke anyone ill. 
870 DATA I'm worried about the profusion 

of tele-this and tele-that devices- 
880 DATA Where do you watch television m 
ost often 
890 DATA Are you addicted to television. 

Like some people I know 
900 DATA what type of music do you like 
best., I used to adore Simon and Garfunke 
1. What do you think of them ? 
910 DATA So much modern music is too lou 
d. I get lots of cases who are disco-goe 
rs. 
920 DATA Do you have a video recorder at 

home ?,how long hve you had a video ? 
930 DATA If you video too much then you 
won't have any time to notice the real w 
or 1 d 

940 DATA So you eat too much do you, foo 
d is all very well but you musn't be obs 
essed with it. You'll get fat. 
950 DATA What's your favourite meal ? 
960 DATA Would you like to talk about fi 
sh, how about same nice fish and chips 
970 DATA Have you ever spent a day fishi 
ng by the river and not caught anything 
*-) 

980 DATA Tell me more about your talents 
. Do you play the concert piano ? 
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990 DATA What kind o-f hobbies have you. g 
at. 

1000 DATA Where do you work ? or do you 
still go to school or college ? 
1 1 DATA How about a bi t of word assoc i 
at ion- +++ MATHS +++ ? 

1020 DATA What does the word •" MACKEiREL : ' 
suggest to you ? 

1030 DATA I'm a -f raid that I will have to 
leave you in a -few moments. I'm expecti 
ng a very important client. 



WORD SQUARE 



m 

^_ — * — -, — , mm 

■Z * _ "■ 



jj r w h 



, — -, — , . — __ 



This program is designed to test the wits of members of your 
circle who think they are keen of eye and sharp of brain. 

The screen will generate a square of alphabet which will 
contain hidden words. The words can be written horizontally, 
vertically, diagonally and even backwards. 



How to play 

When you have identified a word type in the answer and press 
ENTER. You should note that you may identify small words 
such as 'of and 'for' which appear simply because of the 
structure of the screen, but are not actually acceptable to the 
computer. 
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Programming Hints 



To make the program challenging you should have someone 
else enter the data words which are in the end of the program. 
Otherwise you will, of course, know the words you are 
seeking. 



The Program 



20 
30 
40 
50 
60 
70 



10 REM WORDSQUARE 

MODE 1 

BORDER 13 

GDSUB 500 

DIM P(10) , X (10) , Y(10) 

DIM S$(255) , T*(255) 

DIM W(10) 
SO 60SUB 6B0 
90 GOSUB 1030 
100 FOR L=l TO 10:W(L)=0 
110 NEXT L. 
120 SC=0 
130 GOTO 160 

140 LOCATE 1,22: PR I NT" BE SENSIBLE" 
150 FOR L=l TO 1500: NEXT L 
160 LOCATE 1,23: PRINT" Your Guess 



170 LOCATE 12,23 

ISO INPUT A* 

190 IF LEN(A*>=0 OR LEM(A$)>10 THEM GOTO 

140 
200 LOCATE 1,22 
210 PRINT" 
220 GOSUB 1180 

230 IF F=0 THEN LOCATE 1 , 22:: PR INT "Not th 
ere": GOTO 400 
240 SC=SC+1 

250 REM HIGHLIGHT THE WORD WHICH HAS BEE 
N FOUND 

260 IF W(F)=1 THEN LOCATE 1 , 22: PRINT" You 
've already had that word": GOTO 400 
270 W(F)=1 
230 B=INT(P(F)/15) 
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290 A=P(F)-15*B 

300 FOR L==l TO 

310 LOCATE A+6,B+3 

320 GOSUB 640:D*=CHR*(DD> 

330 LOCATE A+6,B+3:PEN 2 

340 PRINT D*S 

350 PEN 1 

360 A=A+X(F) :B=B+Y(F) 

370 NEXT L 

380 IF SC=10 THEN GOTO 430 

390 LOCATE 1 , 23: PRINT" Wei 1 done "sSC;" c 

orrect so -far" 

400 FOR L=l TO 2000: NEXT L 

410 LOCATE 1,23: PRINT" 

II 

420 GOTO 160 

430 REM Here when all ten are -found 

440 CLG 

450 LOCATE 1,11 

460 PRINT"Well done... you found them all 

II 

470 IF INKEY$<>"" THEN GOTO 470 

480 IF INKEY*="" THEN GOTO 480 

490 END 

500 REM PUT MACHINE CODE JUST ABOVE RE-A 

D JUSTED HI MEM 

510 MEMORY 39000 

520 MC=HIMEM+1 

530 TA=HIMEM+&7F 

540 TH=INT(TA/256) 

550 TL=TA-256*TH 

560 POKE MC,&CD 

570 POKE MC+ 1,^60 

580 POKE MC+2,&BB 

590 POKE MC+3,&32 

600 POKE MC+4,TL 

610 POKE MC+5,TH 

620 POKE MC+6,8<C9 

630 RETURN 

640 CALL MC 

660 DD=PEEK(TA) 

670 RETURN 

680 REM READ IN DATA AND STORE IN 

690 LOCATE 1 1 , 1 1 : PR I NT " ONE MOMENT " 

700 5*="" 

710 FOR L=l TO 15 
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720 S$=S*+" 

730 NEXT L 

740 RESTORE 1270 

750 FOR 1=1 TO 10 

760 READ N* 

770 N=LEN(N*) 

780 N*=RIGHT*<N*,N) 

790 ON I NT ( RND*8 > GOSUB 1 1 00 ,1110,11 20 , 1 

130, 1 140, 1 150, 1 160, 1 170 

800 A=INT(RND<1)*15> : B=INT (RND < 1 > *15) 

810 C=A+X(I)*N 

820 D=B+Y ( I > *N 

830 IF C<0 OR D<0 OR C>14 OR DM4 THEM G 

OTO 790 

840 L»-l 

850 L=L+1 

860 D=1 + (B+Y ( I ) *L) *15+A+X < I ) *L 

870 Q*=MID*(S*,D, 1) 

880 IF Q*=" " THEN GOTO 900 

890 IF Q*OMID*(N*,L+l, 1) THEN GOTO 790 

900 IF LON-1 THEM GOTO 850 

910 FOR L=0 TO N--1 

920 Q=i + <B-i-Y < I ) *L> *15+A+X < I ) *L 

930 S*=LEFT$ (S$, Q-l ) +MID* (N$, L+l , 1 ) +MID* 

<S*,Q+1> 

940 NEXT L 

950 P<I)=A+B*15 

960 NEXT I 

970 T*="" 

980 FOR L=l TO 255 

990 IF MID*(S$,L,1>=" " THEN T*=T*+CHR* ( 

INT (RND ( 1) #26+65) ) ELSE T*=T$+MID$ (S*, L, 

1) 

1000 NEXT L 

1010 S*=T*:T*="" 

1020 RETURN 

1030 REM DISPLAY SQUARE 

1040 CLS 

1050 FOR L=0 TO 14 

1060 LOCATE 6,L+3 

1070 PRINT MID$(S$,L*15+1, 15) 

1080 NEXT L 

1090 RETURN 

1 100 X < I ) =-1 : Y ( I > =-1 : RETURN 

1110 X(I)=1:Y(I)=1:RETURN 

1 1 20 X(I)=-1:Y(I)=1: RETURN 
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1 1 30 X ( I ) = 1 s Y ( I ) =-- 1 s RETURN 
1 1 40 X ( I ) =: 1 :: Y ( I ) =0 :: RETURN 
1 1 50 X ( I ) =0 s Y ( I ) = 1 : RETURN 

I 1 60 X ( I ) ^ 1 s Y ( I ) =0 : RETURN 

1 1 70 X ( I ) =0 s Y ( I ) =- 1 s RETURN 

II £30 REM CHECK IF RESPONSE IS VALID 
1190 RESTORE 1270 

1200 F=0 

1210 FOR L=l TO 10 

1220 READ N$ 

1230 IF N*=A* THEN F=L: 0=LEN (N*> 

1240 NEXT L 

1250 RETURN 

1260 REM WORD LISTS 

1270 DATA AMSTRAD, VIDEO,, COLOUR 

1280 DATA SOUND .GRAPHICS .GAMES 

1 290 DATA MONT I OR , PLAY , COMPUTER 

1300 DATA WATER 



FAST TYPER 




How are your reactions, your spelling and your keyboard 
skills? On your screen you will see a fast moving, ever 
changing colour background moving from left to right across 
the line of your vision. 

In the middle of this screen will pop up the word which you 
have to copy type on the screen to stop the computer. 



How to play 

You simply type in the word, without pressing any Enter keys, 
in as quick a time as possible to achieve the highest score. 



Programming hints 

If you find the words in lines 450 and 460 too simple, or even 
too difficult, you can change them to suit your own needs. All 
you need to do is to enter your own data, remembering to 
change line 440 if you increase the number of words from 8. 
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If you wish to change the length of the words then remember 
to change the number 6 in line 170 to the appropriate length 
of the new words you wish to insert. 



The program 



10 

20 

30 

40 

50 

60 

70 

B0 

90 

100 

110 

1 20 

1 30 

1 40 

150 

50 

160 

170 

180 

190 

GOTO 

200 

2 1 

220 

230 

IN" 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 



REM FAST TYPER 



GOSUB : 

G0ES=0 

SC=0 



>o 



1 GOSUB 270 

READ N 

TO INT<RND<1>*N+1> 



EVERY 1 

RESTORE 

FOR L» 1 TO I NT < RMD < 1 ) *N+ 1 ) : READ W* 

NEXT L 

IF RND(l) >0.001 THEN GOTO 90 

INK 12, 26: PEN 12 

LOCATE 8, 10:P=1 

T=0 

PRINT W* 

T=T+ 1 : I F I NKEY*< > " " THEN 

T=T+1:A*=INKEY*: IF A*="" 



GOTO 
THEN 



140 
GOTO 1 

140 



IF A*OMID*(W*,P,i) THEN GOTO 
P=P+1:IF P<>6 THEN GOTO 140 
LOCATE 8, 10s PRINT" "5 
SC=SC+T:G0ES=G0ES+1:IF G0ESO5 THEN 

60 

SC=INT(SC/5) 
CLS:LL=REMAIN<1> 

LOCATE 5, 10: PRINT "AVERAGE TIME : " ; SC 
LOCATE 3, 15: PRINT "(SPACE > TO TRY AG A 



THEN GOTO ; 
• THEN GOTO 



:40 

250 



IF INKEY$=" 

IF INKEY*<> 

RUN 

REM LIME SLIDING 

REM USING 10 COLOURS 

DI 

ZZ=LL:LL=LL+1: IF LL>10 THEN LL=1 

INK LL, 14: INK ZZ,0 

EI .-RETURN 

REM PLOT LINES 

MODE 
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350 FOR L-l TO 10: INK L,L*2:NEXT L 

360 CC=1 

370 FOR H=l TO 639 STEP 4 

380 PLOT H, 1,00: DRAW H, 399, CO 

390 CC=CC+1:IF CO 10 THEN 00=1 

400 NEXT H 

410 BORDER 4 

420 FOR LL=10 TO 1 STEP -1:INK LL,0:NEXT 

LL 
430 RETURN 
440 DATA 8 

450 DATA MOUSE, HOUSE, WHICH, WITCH 
460 DATA MAINS, PLAIN, PLANE, MICRO 



CUBIST CONUNDRUMS 




Well, to tell the truth, we had to look it up to see what it was 
about and it seems there was a Dutch painter named 
Mondrian who painted abstract art. What has that to do with 
your Amstrad you may ask. 

Well, the fact is that your modest little computer has the talent 
to originate for your eyes only - abstract art. If you have had 
a hard day at the office, in the kitchen or at school just enter 
this short program into your computer - sit back and watch 
the results. 

It really is the most beautifully relaxing experience. 



Programming hints 

This small but very attractive program can be loaded into the 
middle of one of your own programs where you are using a 
pause during a search in an adventure. You could also use this 
when a large program was loading a second part to memory. 
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The program 



10 

20 

30 

40 

50 

60 

70 

80 

90 

1 OC 

HC 

1 20 

13C 

14C 



CONUNDRUMS 



REM CUBIST- 
MODE 

BORDER 3 

PAPER INT(RND<1)*16) 

A=INT(RND<1)*20+1> 

B=INT (RND < 1 > * (21-A) +A) 

C=INT(RND<1)*25+1> 

D=INT(RND(1)*(26-C)+C> 

WINDOW A,B,C,D 
J CLS 

IF INKEY<47)=0 THEM GOTO 110 

IF RND(1)<0.05 THEN GOTO 40 

INK INT(RND<1)*16) , INT (RND ( 1 ) #25) 

GOTO 40 



WIPEOFF 




I am afraid that a bunch of horrible vandals have got into your 
Amstrad and covered the screen with paint from an aerosol. 
You have been stuck with the job of cleaning up the mess 
before the law arrive and start to look for a likely suspect. 



How to play 

You have only 30 seconds to wipe off the mess using the 
arrow keys and if you fail to finish in time you will get a 
percentage score against your efforts. 



Programming hints 

If you are too quick at finishing the clean up operation and you 
would like even less time to complete then alter the Count 10 
00 in line 50. 
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The program 



10 
20 

30 

40 

50 

60 

70 

SO 

90 

100 

110 

120 

1 30 

140 

150 

1 60 

80 

170 

1 80 

1 90 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 



REM WIPEOFF 
GOSUB 410 

GOSUB 260 

SCDRE=0 

C0UMT=1000 

X=10: Y=10 

SOUND 1,500, 10,4 

LOCATE X,Y: PRINT" "5 

IF INKEY<8)=0 AND X>1 THEN X = X-1 

IF INKEY(1)=0 AND X<20 THEN X=X+1 

IF INKEY(0)=0 AND Y>1 THEN Y=Y-1 

IF INKEY<2)=0 AND Y<25 THEN Y=Y+1 

GOSUB 550 

IF DD<>32 THEN SC0RE=SC0RE+1 

C0UNT=C0UNT-1 

IF COUNTOO AND NUMOSCORE THEM GOTO 

MODE 2 

LOCATE 1', 10 

PR I NT "You have cleared " ; 



: SPACE > 
" THEN 



PRINT USING 

PRINT" 7. o-f 

LOCATE 1, 15 

PR I NT "PRESS 

IF INKEY*<> 

GOTO 30 

REM SPRAY AEROSOL. 

MODE 

NUM=~-1 

X=10: Y=10 

PEN 11 

GOSUB 550 

IF DD=32 THEN NUM=NUM+1 

LOCATE X,Y 

PRINT CHR*(143); 

IF RND(l) >0.6 THEN 
RND(l) >0.6 THEN 
RND(1)>0.6 THEN 
RND(l) >0.6 THEN 



" ### . ## " ; SCORE* 1 OO/NUM ; 
the mess" 



TO TRY AGAIN' 
GOTO 240 



IF 
IF 
IF 
IF 



X = X + 1 
X=X-1 
Y=Y+1 
Y=Y-1 



X >0 
N GOTO 310 
400 RETURN 



AND X<21 AND Y>0 AND Y<26 THE 
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410 REM PUT MACHINE CODE IN MEMORY ABOVE 

RE-ADJUSTED HI MEM 
420 MEMORY FRE (0) ~?.;80 
430 MC=HIMEM+1 
440 TA==HIMEM + ?.:7F 
450 TH=INT(TA/256) 
460 TL=TA-256*TH 
470 POKE MC., 2.-CD 
480 POKE MC+ 1 , S<60 
490 POKE MC+2,2/.BB 
500 POKE MC+3,8<32 
510 POKE MC+4,TL 
520 POKE MC+5, TH 
530 POKE MC+6,8«C9 
540 RETURN 
550 LOCATE X,Y 
560 CALL MC 
570 DD=PEEK(TA) 
580 RETURN 



FIRST ONE 
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This game could mean the possible destruction of your 
computer unless you trust all your friends to be gentle. 

The game is for up to NINE players, and the object is to be the 
first one to press a key and stop the game. 

A coloured square will appear on the screen, and then 
everyone must try to be first to react. 



How to play 

The computer will ask "How many players are there?" 

Tell the computer, which will then ask for the player's names. 

Player One uses key A, player Two uses key B and so on. 

If you cheat and move early however, the computer will tell 
everyone "Guess who cheated" "It was " 



88 

The winner will be identified and their reaction time will be 
shown. 



The program 



10 REM FIRST ONE 
20 MODE 2 
30 BORDER 4 

40 I NPUT " How many players are there " ; N 
50 IF N<1 OR N>9 THEN PRINT: PRINT" I ' m af 
raid that you can only have -from 1 to 9 
players" sPRINT: PRINT: GOTO 40 
60 DIM n*(N):F0R L=l TO N 
70 PR I NT "Name of player "51;" : "5: INPUT 
n*<l) 

80 IF n*(l)="" THEN GOTO 70 
90 NEXT 1 
100 MODE 

110 IF RND(l) >0„997 THEN GOTO 210 
120 k$=INKEY*>: IF K*="" THEN GOTO 110 
130 FOR L=50 TO 600 STEP 5 
140 SOUND 1,L,5:NEXT L 

150 S=ASC(K*>-ASC("@"> : IF S< 1 OR S>N THE 
N PRINT" ILLEGAL KEY": FOR L=l TO 2000: NEX 
T L:GOTO 100 
160 MODE 2 
170 LOCATE 1,8 

180 PR I NT "HEY EVERYONE... GUESS WHO JUST 
CHEATED " 

190 PRINT" It was "Sn*<S> 

200 FOR L=l TO 2000: NEXT L:GOTO 100 

210 REM MAKE BLOCK APPEAR 

220 LOCATE 6„ 10: PRINT"PRESS NOW" 

230 C=0 

240 f>C+i:K*=INKEY*:IF K*="" THEN GOTO 2 

40 

250 S=ASC(K*)-ASC<"@" > 

260 IF S<1 OR S>N THEN GOTO 150 

270 MODE 2 

280 LOCATE 1, 10 

290 PRINT N*(S);" wins" 

300 LOCATE 1, 15 
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310 PRINT "With a reaction count o-f s "5 

C 

320 FOR 0=1 TO 4000s NEXT Q 

330 GOTO 100 



WEIGHTLIFTER 




Well here at last is your chance to prove that you should have 
been selected for the last Olympics - as a weightlifter? 

Your friends will probably tell you that you haven't got the 
strength to liftyourself from yourchairbutnowyou can prove 
them wrong as you snatch, press and lift with the best of 
them. 

On the screen you will see a man, his weights and speed tester 
- see how you do on your own. 



How to play 

Just like the real thing the lift must be completed in four 
different moves and each one must be properly executed or a 
foul sign will appear and you will have to begin again. 
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At the beginning of each movement a small star will move 
swiftly across the screen from left to right and you must stop 
it between two points to begin the lift. 

To stop the star press the SPACE bar. 

Another little problem is that the better you become at lifting 
the weights the faster the star will move until - we believe - 
you won't be able to help your alter ego win a medal but we 
could be wrong. 



The program 



10 REM WEIGHTLIFTER 

20 GOSUB 2000 

30 SC=Os WEIGHT- 100 

40 F=20 

100 MODE 1;N=1 

1 1 GOSUB 3000 

120 GOSUB 1000 

130 LOCATE 1,20: PR I NT "SCORE : " s SC 

1 40 LOCATE 20 , 4 : PR INT" NOW L I FT I NG : " 5 WF I 

GUT 

145 IF INKEY*<>"" THEN GOTO 500 

150 IF RND>0.008 THEN GOTO 150 

160 0=0 

170 GNQ+1: LOCATE Q, 14 

180 PRINT"*" ii 

185 FOR T=l TO F:NEXT T 

190 IF INKEY*<>"" THEN GOTO 400 

200 IF GK40 THEN GOTO 170 

210 GOTO 500 

400 IF Q<15 OR Q>22 THEN GOTO 500 

410 IF N<4 THEN N=N+1 : SC=SC+WEIGHT*N/10: 

LOCATE 1, 14 sPRINT" 

";:GOTO 110 
420 LOCATE 25, 6: PRINT"LIFTED !!!" 
430 FOR B=l TO 26 

440 SOUND 1,B*20, 10: BORDER BrNEXT B 
450 WEIGHT=WEIGHT+10 
460 IF F>1 THEN F=F-1 
470 GOTO 100 
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500 REM FOUL LIFT 

510 LOCATE 25, 6s PR I NT "FOUL" 

520 FOR W=»l TO 200: NEXT W 

530 LOCATE 1 , 23: PRINT" YOU MADE IT TO " ; W 

EIGHT;" POUNDS" 

540 IF INKEY*=" " THEN GOTO 540 

550 IF INKEY*<>" " THEN GOTO 550 

560 RUM 

900 REM CLEAR WINDOW 

910 WINDOW 1, 10, 1, 10 

920 CLS 

930 WINDOW 1,40, 1,25 

990 RETURN 

1000 REM DRAW LIFTER IN POSITION (N) 

1010 GOSUB 900 

1020 ON N GOTO 1 100, 1200, 1300,, 1400 

1 1 00 PLOT 64 , 379 : DRAW 64 , 349 : DRAW 94 , 349 

:DRAW 94, 379: DRAW 64,379 

1110 PLOT 79, 349: DRAW 79, 300: DRAW 39,240 

:PLOT 79, 300: DRAW 119,240 

1120 PLOT 39, 312: DRAW 39, 320: DRAW 79,335 

:DRAW 119, 320: DRAW 119,312 

1130 PLOT 16, 265: DRAW 142,265 

1140 PLOT 17, 240: DRAW 17, 290: PLOT 18,240 

:DRAW 18, 290: PLOT 19, 240: DRAW 19,290 

1150 PLOT 139, 240: DRAW 139, 290: PLOT 140, 

240: DRAW 140, 290: PLOT 14 1,240: DRAW 141,2 

90 

1199 RETURN 

1 200 PLOT 64 , 364 : DRAW 64 , 334 : DRAW 94 , 334 
:DRAW 94, 364: DRAW 64,364 

1210 PLOT 79, 334: DRAW 79,290 

1220 PLOT 39, 240: DRAW 64, 290: DRAW 94,290 

:DRAW 119,240 

1 230 PLOT ' 39 , 265 : DRAW 39,273: DRAW 79 , 320 

:DRAW 119, 273: DRAW 119,265 

1240 PLOT 16, 265: DRAW 142,265 

1250 PLOT 17, 240: DRAW 17, 290: PLOT 18,240 

:DRAW 18, 290: PLOT 19, 240: DRAW 19,290 

1260 PLOT 139, 240: DRAW 139, 290: PLOT 140, 

240: DRAW 140, 290: PLOT 141, 240: DRAW 141,2 

90 

1299 RETURN 

1300 PLOT 64, 379: DRAW 64, 349: DRAW 94,349 
:DRAW 94, 379: DRAW 64,379 
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39,240 

60,312 
335: DR 



341: DRAW 142,341 
316: DRAW 17, 367: PLOT 18,316 
PLOT 19, 316: DRAW 19,367 
316: DRAW 139, 367: PLOT 140, 
67: PLOT 141, 316: DRAW 141,3 



1310 PLOT 79, 349: DRAW 79, 300: DRAW 

:PLOT 79, 300: DRAW 119,240 

1 320 PLOT 52,341: DRAW ' 52 , 335 : DRAW 

:DRAW 79, 335: DRAW 98, 312: DRAW 106 

AW 106,341 

1330 PLOT 16 

1340 PLOT 17 

."DRAW 18,367 

1350 PLOT 139 

3 16: DRAW 140, 

67 

1399 RETURN 

1400 PLOT 64 
:DRAW 94,379 
14.10 PLOT 79 
:PLQT 79,300 
1420 PLOT 52, 379: DRAW 
:DRAW 106,379 

1430 PLOT 17, 399: DRAW 17, 367: DRAW 18 
:DRAW 18, 399: DRAW 19, 399: DRAW 19,367 
1440 PLOT 139, 399: DRAW 139, 367: DRAW 



379: DRAW 64,349: 
DRAW 64,379 



DRAW 94,349 



349: DRAW 
DRAW 119. 



79, 300: 

240 

64,335: 



DRAW 39 



DRAW 94,335 



367 



240 



140. 



567: DRAW 140, 399: DRAW 14 1,399: DRAW 141, 
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1 450 

1499 

2000 

20 1 

2020 

2030 

2040 

ry to 

lift wei ghts. " 

2050 PRIMT:PRINT"Un-fortunatel 

ng isn't all it 

ed to tel 1 him 

e next stage 

of the lif t. " 
2060 PRINT: PRINT 
es across the 



PLOT 16, 379: DRAW 142,379 

RETURN 

REM INSTRUCTIONS SUBROUTINE 

MODE 1 

LOCATE 10,1: PR I NT " WE I GHTL I FTER " 

LOCATE 9 , 2 : PR I NT " ====-=========:== » 

LOCATE 1,5: PR I NT "In this game you t 
help Feeble Fredas he attempts to 



could be, and so 
when he mus' 



his t i m i 

you ne 

move to th 



As the timing light fli 
sceen, you must shout a 
while it is between the-: 



t Fred to lift 

two critica 
1 points. " 

2070 LOCATE 13, 20: PR INT" < SPACE >" 
2080 IF INKEY*=" " THEN GOTO 2080 
2090 IF INKEY*<>" " THEN GOTO 2090 
2099 RETURN 
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3000 


REM mark critical points 


3010 


INK 2, 11 


3020 


PEN 2 


3030 


PLOT 1 , 1 92 : DRAW 639 ,, 1 92 : PLOT 


DRAW 


639 , 174 


3040 


LOCATE 15,13s PR I NT CHR* (214) 


3050 


LOCATE .22, 13s PRINT CHR* (215) 


3060 


LOCATE 15, 15: PRINT CHR*(213) 


3070 


LOCATE 22,15:PRINT CHR*<212) 


3090 


INK 1,24s PEN 1 s BORDER 5 


3099 


RETURN 
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KALEIDOSCOPE 
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Once upon a time, before the advent of sophisticated 
computers, we used to have little cardboard tubes with glass 
panels and pieces of coloured card inside. We used to shake 
them and peer into a little hole in the end and see a wonderful 
collection of shapes, colours and sizes all in lovely symmetry. 

Well, enough of all this nostalgia. This is the age of the 
computer so here is an up to date version of an old Victorian 
parlour toy. We have included this program because it can be 
typed in by the youngest member of the family in ten minutes 
and they will then have the immense satisfaction of having 
'entered' and 'run' their own computer program with 
beautifully colourful results. 



Programming hint 

This is a handy little program for entering into a main 
program as a colourful sub-routine. Simply enter a loop sub- 
routine and insert this listing. 
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The program 



10 REM KALEIDESCOPE 

20 K*=CHR*(207) 

30 DEFINT A--Z 

40 MODE 

50 FOR L=0 TO 15 

60 INK L,L 

70 NEXT L 

90 BORDER 5:: LOCATE 1,25: PAPER 5: PR I NT" 

II n 

n 

90 PAPER INT (RND (1)* 16) 

100 PEN INT(RND(1>#16> 

110 GOSUB 150 

120 INK RND(1)*9+6,RND(1)*25 

130 GOTO 90 

150 REM PLOT KALE ID POINTS 

1 60 X= I NT ( RND ( 1 > *20+ 1 ) : Y= I NT ( RND ( 1 ) *24+ 1 

) 

170 LOCATE X,Y: PRINT K* 

ISO LOCATE 21~X,Y: PRINT K* 

190 LOCATE 21-X,25-Y: PRINT K* 

200 LOCATE X , 25-Y: PRINT K* 

210 RETURN 



ZOMBIE MAZE 




Fingers at the ready! 

Eyeballs glued to the screen! 

Nerves stretched to the limit! 

You are off and running through the maze as FOUR monsters 
converge on you for an inevitable end. 

Stay alive as long as you can it's more fun that way. 



How to play 

Use the arrow keys to move your hunted little man around the 
maze for as long as you can. You have two moves to the 
monster's one - but there are four of them. 
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Programming hints 

You might like to know that the tune being played behind your 
little man begins at line 790. If you are musical you could 
change it to the funeral march. 



If you want to change the shape of the maze after a few games 
then alter the data in line 980 onwards. The 1 forms the walls 
and the the gaps. Remember you must always have 20 
characters on each line otherwise the maze will not be 
formed. You can have lots of gaps by using but remember 
that this means the monsters can move faster as well as you. 



The program 



10 REM ZOMBIE MAZE 

20 DEFINT A-Z 

30 SC=0:HS=0 

40 MODE 

50 DEF FNSCR(X,Y)=TEST(32*X-20,408-16*Y) 

60 ENV 1,1,120,7,24,-5,14 

70 X=2:Y=2sPC=249 

80 k*="" 

90 M0254 

1 00 A ( 1 ) = 1 9 : B < 1 ) =2 : A ( 2 ) =2 : B ( 2 ) =23 

110 A ( 3 ) = 9 : B ( 3 ) = 1 : A ( 4 ) = 1 9 r. B ( 4 ) = 2 3 

120 NUM=1 

130 GOSUB 650 

140 SOUND &S1,0 

150 SOUND &82,0 

160 ON SQ(1) GOSUB 790 

170 EVERY 10,0 GOSUB 410 

180 EVERY 9,1 GOSUB 520 

190 FLAG=0 

200 REM MAIM LOOP 

210 SC=SC+1:IF SOHS THEN HS=SC 

220 DI 

230 LOCATE 1,25 

240 PEN 8 

250 PRINT "SCORE : " ; 

260 PRINT USING "######" ;SC; 



99 



270 
230 
290 
300 
310 
320 
330 
340 
NEX 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
E X 
490 



EI 

IF FLAG=0 THEM GOTO 200 
SOUND &C1,0 
SOUND &C2,0 
DI 

Z-REMA I N ( ) : Z =REMA I N ( 1 ) 
LOCATE 7, 10:PEN 7: PR I NT "GAME END" 
FOR Z=l TO 400: INK 7, INT <RND ( 1 > #24) 
T Z : I NK 7,13 
FOR Z=l TO 300: NEXT 



IF SC=HS THEN GOSUB 

A*=INKEY*: IF A*>=" " 

A*=INKEY*: IF A*<>" ' 

EI 

SC=0:GOTO 40 

REM PLAYER ROUTINE 

IF INKEY(28)=0 THEN 

IMKEY(63)=0 

INKEY(30)=0 

INKEY(71)=0 



Z 

860 

THEN GOTO 370 
' THEN GOTO 380 



THEN 
THEN 
THEN 



CY=-1 
CX = 1 
CY=1 
CX=-1 



IF 

IF 

IF 

DI 

TX=X+CX:TY-Y+CY:CX=0:CY=0 

COL=FNSCR<TX.,TY) : IF C0L=5 THEN LOCAT 

Y: PRINT" "; : X=TX: Y=TY:GOTO 490 

PC=497~-PC : LOCATE X , Y : PR I NT CHR* ( PC ) ; 



500 
5 1 
520 
530 
-MC 
540 
550 
560 
570 



EI 

RETURN 

REM MONSTER ROUTINE 

NUM=NUM+1:IF NUM=5 THEN 



NUM=1:MC=509 



TRY=0 

CA=SGN<X-A(NUM> ) : CB=SGN ( Y-B (NUM) ) 

TA=A (NUM) +CA: TB=B (NUM) +CB 

COL=FNSCR(TA,TB> : IF C0L=5 THEN LOCAT 
E A (NUM) ,B (NUM) : PRINT" " ; : A (MUM) =TA: B (NU 
M)=TB:GOTO 620 

580 IF C0L=3 THEN FLAG=-1 : RETURN 
590 TRY=TRY+1:IF TRY=3 THEN GOTO 620 
600 CA=SGN ( I NT ( RND*3 ) - 1 ) : CB=SGN ( I NT ( RND* 
3)-l) 
610 GOTO 560 



620 


MC=509-MC: LOCATE A(NUM),B(NUM 


630 


DIrPEN 11:PRINT CHR$ (MC) ; : PEN 


640 


RETURN 


650 


REM DRAW THE MAZE 



100 

660 SYMBOL 240 , fcCC , &33 , &CC , &33 , &CC , &33 , 3< 

CC&33 

670 MODE On PAPER 5: PEN 12 

680 BORDER 6 

690 RESTORE 990 

700 FOR L=l TO 24 

710 READ L$ 

720 FOR M=l TO 20 

730 D= V AL ( M I D$ ( L* , M , 1 ) ) 

740 IF D=l THEN PRINT CHR$(240); ELSE PR 

INT " "; 

750 NEXT M 

760 NEXT L 

770 RESTORE 

780 RETURN 

790 REM PLAY NEXT NOTE OF TUNE 

800 READ NOTE 

810 IF N0TE==--1 THEM RESTORE: GOTO 800 

820 SOUND & 1 1 , NOTE , 50 , , 1 , , 

830 SOUND 8<A , NOTE*0 ., 69 , 50 ,0,1, , 

840 ON SQ(1) GOSUB 790 

850 RETURN 

860 REM GOT HIGH SCORE 

870 PEN 8 

830 LOCATE 6, 14: PRINT "HIGH SCORE" 

890 FOR 2=1 TO 200 STEP 5: INK 8,INT(RND( 

1>*24> 

900 SOUND S<83, ABS (500--Z*5> , 15 

910 NEXT Z 

920 RETURN 

930 REM TUNE DATA 

940 DATA 478,379,319,379 

950 DATA 358,284,239,284 

960 DATA 319,379,319,358,379,426,478,239 

970 DATA --1 

980 DATA "11111111111111111111" 

990 D A T A " 1 1 001 01" 

1 000 DATA " 101111 000 1 1 000 111101" 

1 1 DATA " 1 1 00 1 1 0000 1 1 00 1 1 " 

1 020 DATA "1011 000 1 1 00 1 1 000 1101 " 

1 030 DATA " 1 1 00 1 00 1 00 1 00 1 00 1 1 " 

1 040 DATA "101011011 00 1101101 1 " 

1 050 DATA " 1 0000 1 1 0000 1 1 0000 1 " 

1 060 DAT A " 1 1 1 000 101101 000 1011 " 

1 070 DATA " 1 00 11111011011111001" 

1 080 DATA " 1 00000 1 00 1 1 00 1 00000 1 " 
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1 090 DATA n 1 1 1 1 000 1111 000 11101' 

1 1 00 DATA " 1 0.0000 1 00 1 1 00 1 00000 1 ' 

1110 D A T A ' ' 1 1 ! 

1 120 DATA" 101 1 101010010101 1 101 ' 

1 1 3 D A T A " 1 1 1 1 ! 

1 1 40 DATA " 1 1 00 1 1 1 1 00 1 1 1 1 00 1 1 ' 

1 1 5 D A T A " 1 1 1 1 1 1 1 1 ' 

1 1 60 DATA" 1 111011 1 00 1110111 1 ! 

1170 D A T A " 1 1 1 1 1 1 ' 

1 1 80 DATA " 1101 1 1 1 1 1 1 1 1 1 ' 

1 1 90 DATA " 1 00 1 1 1011 1 1 1 00 1 ! 

1200 D A T A ' ' 1 1 1 1 1 1 ' 

1 2 1 DATA "11111111111111111111 ! 



PONTOON 




It's gamblers corner again as you pit your wits, and money, 
against the Amstrad croupier at the old classic game. By the 
way you can't cheat when you show your hand as your 
computer already knows what you are holding. 

The object of the game, in case you have never strayed into a 
card school, is to achieve a score of 21 in as few cards as 
possible. If you over buy, or over twist, and score more than 
21 you are 'bust' and you lose your stake. Aces count a 1 or 1 1 
except when you receive two aces in a deal. In this case your 
hand will stand as 12. 



How to play 

The computer will deal your first two cards and ask if you 
would like to T (Twist, take another card without increasing 
your stake); S (Stay on your existing, or eventual hand); B 
(Buy another card); F (Fold if you think your hand is useless, 
but remember you will lose your stake money, and give you 
another hand). 
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If you buy, or twist, to a five card trick (five cards totalling 21 
or less) you will beat the computer, unlesss it had a pontoon 
(21). 

Press the key corresponding to your choice at each stage. 
There is no need to press ENTER at each stage. 

When buying a card, type in the amount you wish to bet and 
press ENTER. 

Remember, if you lose your shirt on this game you won't have 
to part with it. 



The Program 





o 















00 

10 

20 

30 

40 

50 

60 

70 

SO 

90 

00 

10 



REM PONTOON 

MODE 2: BORDER 15 

V=0 

DIM 0(52) 

DIM P<10) ,M(2) 

GOSUB 760 ' 

M= 1 00 

REM HAND LOOP 

CLS 

M=M-2:IF M<0 THEN GOTO 700 

PRINT" You have ";M;" pounds 

BET=2 

PR I NT "Your cards : " 

GOSUB 900 

GOSUB 9S0: PRINT" The "K* 

P(1)=V:GDSUB 9S0: GOSUB 900 

The ";K*:P(2)=V:G0Sl 



left" 



900 



PR I NT 

N=2 

IF P(l)=l THEN P(l)=ll 

IF P(2>=1 AND P(1X>11 THEN P(2)==ll 

IF P(l)+P(2)=21 THEN PRINT: PRINT" Yo 
have got a PONTOON ! ! ! " 
20 SP=P(1)+P(2) 
30 REM PLAYER CHOICES 
40 PRINT "Twist / Stick / Buy / Fold ? 



250 A*=INKEY$:IF A*<>"" THEN GOTO 250 
260 A*=INKEY*:IF A*="" THEN GOTO 260 
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270 IF A*<>"T" AMD A*<>"S" AMD A$<>"B" A 

ND A$<>"F" THEN GOTO 250 

280 IF A*=:"F" THEN PR I NT "O.K. You lose 

your stake" : BOSUB 900: GOTO 90 

290 IF A$="S" THEM GOTO 400 

300 IF A*="B" THEN GOSUB 930: PR INT" 0. K. 

Good luck" 
310 N=N+1:REM NEXT CARD 
320 GOSUB 900: GOSUB 980 
330 PR I NT "The " ; K* 
340 P(N)=V:SP=0 
350 FOR L=l TO N: SP=SP+P (L> : NEXT L 

360 IF SP>21 THEM PRINT"BUST " : GOT 

400 

370 IF N>4 THEM PRINT "FIVE CARD TRICK... 

II 

380 IF SP=21 THEN PRINT"TWENTY ONE 



GOTO 210 

REM Now the computer plays 

SP=0 

FOR L=l TO NsSP=SP+P<L> :NEXT L 

PRINT: PR I NT "My cards :" 

GOSUB 900 

MT=0: GOSUB 980: PRINT" The " ; K* 

M(1)=V:G0SUB 900: GOSUB 980 

PRINT" The "; K*: GOSUB 900:M<2)=V 

IF M(l)=l THEN h1(l)=U 

IF M(2>=1 AND M(1X>11 THEN M(2)=ll 

IF M(l)+M(2>=21 THEN GOTO 610 

IF P<l)+P<2>=21 AND N=2 THEN GOTO 65 



390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 



520 MT=M(1)+M<2) 

530 IF MT<SP AND 

540 IF N<5 THEN PRINT" I 

UB 900: GOTO 610 

550 PRINT" I will twist... 

GOSUB 980: GOSUB 900 

PRINT" The " ; K* 

MT=MT+V: GOSUB 900 

IF MT>21 THEN PRINT" I 
GOTO 650 
600 GOTO 530 
610 REM PLAYER LOSES 

620 PR I NT: PR I NT "You lose that hand" 
630 GOSUB 900: GOSUB 900 



THEN 
will 



GOTO 550 
st i ck 



GOS 



560 
570 
580 

cr,C 



90 



am bust,, 
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640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
8 00 
3 1 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
ven 
960 
970 
980 
990 
1000 



GOTO 80 

REM COMPUTER LOSES 

PRINT: PR I NT" You win that, hand" 

GOSLJB 900:G0SUB 900 

M=M+2*BET 

GOTO 80 

REM HERE WHEN PLAYER IS BROKE 

PRINT: PRINT ,, You are broke" 

GOSUB 900 

PR I NT "Come back on a luckier day" 

GOSUB 900 

END 

REM RANDOMIZE PACK 

PR I NT "+++■+-+++ NEW PACK +++++++" 

FOR L=l TO 52 

C(L)=L:MEXT L 

REM SHUFFLE 

FOR L=l TO 100 

IF V>10 THEN V=10 

A=INT(RND(1)*52+1> 

B=INT(RND<1)*52+1> 

T=C(A) :C(A)=C(B) 

C(B)=T 

NEXT L 

0=1 

RETURN 

REM A SHORT DELAY 

FOR ZZ = 1 TO 700: NEXT ZZ 

RETURN 

REM INCREASE THE BET BY BUYING 



PRINT"BUY -for how much "; 
INPUT BB:IF M-BB<0 THEN PRINT"You ha 
t got that much money": GOTO 940 
BET=BET+BB:M=M--BB 
RETURN 

REM CARD IN K 
REM NAME IN K* 
K==C(Q) :Q=Q+1: IF Q=53 THEM GOSUB 760 
I NT ( ( K- 1 ) / 1 3 ) : V=K- 1 3*S 
1020 ON V GOSUB 1060,1070,1030,1090,1100 
, 1110, 1120, 1130, 1140, 1150, 1160, 1170, 1180 
1030 ON S+l GOSUB 1190,1200,1210,1220 
1040 IF V>10 THEN V=10 
RETURN 

K*="Ace ": RETURN 
k$="Two ": RETURN 
k$=" Three ": RETURN 



1 050 
1 060 
1 070 
1080 
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1090 k*="Four " : RETURN 

1 1 00 k *= "Five " : RETURN 

1110 k*="Six ": RETURN 

1120 k$=" Seven ": RETURN 

1130 k*=" Eight ": RETURN 

1140 k$="Nine ".-RETURN 

1150 k*-"Ten ": RETURN 

1160 k$="Jack ": RETURN 

1 1 70 k *= " Queen " : RETURN 

1180 k*="King "."RETURN 

1190 k*=k*+"o-f Clubs": RETURN 

1200 k$=k$+"of Diamonds ".-RETURN 

1210 k*=k*+"o-f Hearts": RETURN 

1220 k*=k$+"of Spades": RETURN 



MORSE ENCODER 




If you are planning to go sailing in the near future, then this 
program will help you brush up your morse code before you 
go. 

Can you remember what to tap for S.O.S.? 

It's ...---... 

That's all the help we are going to give you. Hope you don't 
have to use it. 

When you type a message into this program, your computer 
will play it back in morse code. A good way to test each 
message is to have someone else enter the message, and for 
you to sit down on the other side of the room and see if you 
can decode it. 
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How to play 

Just press the alphabet keys of your choice. 

Programming Hint 

If you feel that the play back is too slow, or too fast, you can 
change the speed by altering S=12in line 20 of the program. 

The program 



10 REM MORSE ENCODER 

20 S=12:D=4 

30 DIM M$(26) 

40 FOR L=l TO 26: READ M*(L) 

50 NEXT L 

60 MODE 1 

70 BORDER 13 

80 LOCATE 1,6 

90 PRINT "Message to transmit :" 

100 LINE INPUT "",1* 

110 FOR L=l TO LEN<I$) 

120 CH*=MID*(I*,L, 1) 

130 IF CH*>="a" AND CH*<="z" THEN CH$=CH 

R* (ASC <CH$) -ASC ( "a" ) +ASC ( "A" ) ) 

140 IF CH$<"A" OR CH$>"Z" THEN GOSUB 210 

:GOTO 160 

150 GOSUB 350 

160 NEXT L 

170 LOCATE 1,20 : PR I NT "Transmission compl 

ete" 

FOR L=l TO 2000: NEXT L 

CALL &BB06 

RUN 

REM PAUSE BETWEEN WORDS 

FOR W=l TO 120*D:NEXT W 

RETURN 



180 
190 
200 
210 
220 
230 
240 
250 
260 
270 



REM SHORT PAUSE 



FOR W=l 
RETURN 
REM DOT 



TO 30*D:NEXT W 
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280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

0T0 

400 

410 

420 

430 

440 

450 

460 



SOUND 1, 1 30, 3*D S SOUND 1,0,D 

GOSUB 240 ' 

RETURN 

REM DASH 

SOUND 1 , 1.30, 9*D: SOUND 1 , O, D 

GOSUB 240 ' " 

RETURN 

REM SOUND ONE CHAR 

X=ASC ( CH$ ) -ASC ( " A " ) + I 

F$=M$(X) 

FOR M=l TO LEN(F$) 

IFM1ID*(F*,M,1>«»S" THEN GOSUB 270:6 

GOSUB 310 
NEXT M 
RETURN 

DATA SL,LSSS,LLS,LSS,S,SSLS,LLS 
DATA SSSS,SS,SLLL,LSL,SLSS,LL 
DATA LS , LLL , SLLS , LLSL , SLS , SSS , L 
DATA SSL , SSSL , SLL , LSSL , LSLL , LLSS 



SAFECRACKER 




Here is your chance to see if you could be of any use to 
Smiley's People as an inside man. 

We have set up a series of numeric codes for you to 'crack' in 
order to open the safe. 

Digits range from 1 to 8 inclusive. 



How to play 

Your computer will select, at random, it's own sequence and 
ask for your first choice of four numbers. 

Enter your numbers and press ENTER. 

After your first 'guess' your Amstrad CPC will put up it's 
'mark' to show you how many of your numbers are correct, 
and how many are in the right place. 
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You will not be told which of your numbers is in the correct 
place, only that one, or more, is in the correct place. You will 
still have to decide for your next move which of your first 
selection is correct. 

We told you it was a test for Smiley's People didn't we. 



The Program 



THEN GOTO 190 



10 REM SAFECRACKER 

20 DIM C(4),G(4),T(4) 

30 GOSUB 270 

40 MODE 1: BORDER 8 

50 G=0:F=0 

60 PEN 1 

70 GOSUB 360 

80 G=G+l : if g=1 1 

90 GOSUB 390 

100 GOSUB 550 

110 IF F=0 THEN GOTO 80 

120 REM CORRECT DEDUCTION 

130 LOCATE 1,19: PRINT "CORRECT 

fe swings gently open" 

140 FOR L=l TO 4 

150 PRINT C(L) 5 " 

160 NEXT L 

170 LOCATE 9, 21: PRINT "IN ";Gs 



The Sa 



attempts 



180 
190 
200 
ut 



GOTO 240 

REM THE COMBINATION REMAINED HIDDEN 
LOCATE l,14:PRINT"Alarm bells ring o 
loudly": LOCATE 1 , 16: PRINT"The time sw 

h Hoc: H«*-%ri A.^.-* it. 



itch has been triggered 

210 LOCATE l,19:PRINT"The combination wa 



220 LOCATE 1,21 : PRINT" »■ 

230 FOR L=l TO 4.-PRINT C(L);" "i 
240 IF INKEY*-" " THEN GOTO ' 240 
250 IF INKEY*<>" " THEN GOTO 250 
260 RUN 

270 REM SET THE COMBINATION LOCK 
280 C(1)=INT(RND(1)*8+1) 



NEXT L 
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290 FOR L=2 TO 4 

300 C < L ) = I NT ( RND ( 1 ) *8+ 1 ) 

310 FOR 1 = 1 TO L--1 

320 IF C(L)=C(I) THEN C (L) =INT (RND ( 1 ) *8+ 

1) 

330 NEXT I 

340 NEXT L 

350 RETURN 

360 REM TITLE THE COLUMNS 

370 LOCATE 4, 1 : PRINT" YOUR GUESS my mark 

330 RETURN 

390 REM GET A GUESS INTO GO 

400 L=l 

410 IF INKEY*<>"" THEN GOTO 410 

420 D*=INKEY*:IF D$="" THEN GOTO 420 

430 D=ASC(D$) 

440 IF D=127 THEN GOTO 500 

450 IF D=13 THEN GOTO 530 

460 IF D<ASC("1") OR D>ASC("9") THEN GOT 

410 

470 IF L=5 THEN GOTO 410 

480 LOCATE 3+L*2, G+3: PEN 2: PRINT CHR*(D> 

490 G(L>=D-48:L=L+1:G0T0 410 

500 L=L--1:IF L=0 THEN L=l 

510 LOCATE 3+L*2,G+3: PRINT " "5 

520 GOTO 410 

530 IF L<5 THEN GOTO 410 

540 RETURN 

550 REM SCORE GO AGAINST THE COMB I NAT 10 

N 

560 B1=0:W1=0 

570 FOR H=l TO 4 

580 IF G(H)=C(H) THEN B1=B1+1 

590 NEXT H 

600 FOR L=l TO 4: T (L) =C (L) : NEXT L 

610 FOR J=l TO 4 

620 IF T<J>=-1 THEN GOTO 660 

630 FOR L=l TO 4 

640 IF T(J)=G(L) THEN W1=W1+1 : T < J) =-1 

650 NEXT L 

660 NEXT J 

670 W1=W1-B1 

680 IF Bl=4 THEN F=l 
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690 LOCATE 15,3+G 
700 PEN 3 

710 PRINT BIS " ";W1 
720 RETURN 



BIORYTHM GRAPHING 
AND PREDICTION 




Don't worry it isn't going to hurt you, just lie back and enjoy 
the sensation of your life flashing past you. 

In simple terms this is a system which will allow you to predict 
the type of day you are going to have, or check and see if the 
day just passed, is as bad as you think possible. 

You type in the data and your Amstrad CPC will tell you, and 
show you the shape of the day to come. It will also give you an 
idea of the days on both sides of the day in question. 

Imagine the potential in drawing up friend's charts and 
sending them as Christmas or birthday presents. 



How to play 

The Amstrad CPC will ask you to enter your birth date and the 
date of the day on which you are using the program. 
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You will then be asked forthe year, month and day/date of the 
week you wish to predict. When you are asked for the day 
remember to enter the day/date not just any day as there are, 
of course, several Tuesdays in a month. 

Press ENTER key after each entry. 

After you key in the final information the computer will 
produce a chart of your physical, emotional and intellectual 
state on the day in question. As we said before, you will also 
see a picture of the days on either side and you may then 
decide not to leave your bed for the next week. 

To clear, type RUN and return to the menu. 
The Program 



10 REM BIQRHYTHM GRAPHING AND PREDICTION 
20 MODE 1: BORDER 2 

30 LOCATE 1,5: PRINT" BIRTHDATE ENTRY :" 

40 GOSUB 290 

50 BY=Y:BM=M:BD=D 

60 CLS: LOCATE 1 , 5: PRINT" DATE TO INVEST I G 

ATE ENTRY : " 

70 GOSUB 290 

GO GOSUB 430 

90 EM=DAYS~2S* I NT (DAYS/28) 

I T=DA YS-33* I NT ( DAYS/ 33 ) 

PH=DAYS-23*INT (DAYS/23) 

CLS: PEN 1: LOCATE 6, 1 

PR I NT "PHYSICAL. CYCLE" 

0=PH/23*360: MU=28/23 

C=l: GOSUB 550 

LOCATE 6, 2: PEN 2:C=2 

PR I NT "EMOTIONAL CYCLE" 

0=EM/28*360:MU=1 

GOSUB 550 

LOCATE 6, 3: PEN 3:C=3 

PRINT" INTELLECTUAL CYCLE" 

0=IT/33*360: MU=28/33 



1 Of 

11C 

12C 

13( 

140 

15C 

16C 

17C 

1 80 

19C 

20C 

21C 

23C 
24C 



GOSUB 550 

PLOT 384, 10: DRAW 384,250 



116 



250 
260 
270 
280 
290 
300 



FEN 1 

IF INKEY*<>"" THEN GOTO 260 

IF INKEY*="" THEN GOTO 270 

RUN 

REM READ IN A DATE 

LOCATE 1, 11: PR I NT "YEAR 

": LOCATE 10,11 
310 INPUT Y:IF YOINT(Y) THEN GOTO 300 
320 LOCATE 1 , 1 6 : PR I NT " MONTH .... 

": LOCATE 10, 16 
330 INPUT M* 

340 I F LEFT* ( M* , 1 > > " " AND LEFT* ( M* , 1 ) < = 
"9" THEN M=VAL(M*> : GOTO 390 
350 RESTORE 640 
360 M=0:FOR L=l TO 12 

370 READ T*:IF T*=LEFT* (M*, 3) THEN M=L 
380 NEXT L 

390 IF M=0 OR MOINT(M) OR M>12 THEN GOT 
320 

400 LOCATE 1 , 21 : PR I NT "DAY 

": LOCATE 10,21 
410 INPUT D:IF D< 1 OR D>31 OR DOINT(D) 
THEN GOTO 400 
420 RETURN 

430 REM FIND THE NUMBER OF DAYS 
440 DP=0:DM=0 

450 DP=365 . 25* Y : DM=365 . 25*BY 
460 RESTORE 680 
470 FOR L=l TO 12 
480 READ T 

490 IF M=L THEN DF-DP+T 
500 IF BM=L THEN DM=DM+T 
510 NEXT L 

520 DP=DP+D:DM=DM+BD 
530 DAYS=DP-DM 
540 RETURN 

550 RLM DRAW A CYCLE 

560 Y=70+60*SIN( (-360*MU+0) *PI/ 180) 
570 X=48 

580 FOR TH--360 TO 350 STEP 2.5 
590 0X=X:X=TH/4. 5+128: OY=Y 
600 Y=70+60*SIN( (TH#MU+0) *PI/180) 
610 PLOT 3#0X,2#0Y,C:DRAW 3*X,2*Y:NEXT T 
H 

620 FOR L=l TO 3000: NEXT L 
630 RETURN 
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640 


DATA 


J AIM, FEB 


, MAR 


650 


DATA 


APR, MAY 


, J UN 


660 


DATA 


JUL, AUG 


, SEP 


670 


DATA 


OCT, NOV 


, DEC 


680 


DATA 


0,31,59 


,90, 120, 151 


273, 


304,.: 


534 





181,212,243, 



DICE 




If you are bored with shooting down missiles and defending 
the world from alien attack then here is a game to test your 
gambling skill. 

The Amstrad CPC will 'throw' five dice for you and you must 
try to achieve the best sequence possible for the greatest 
score. 

Possibilities to achieve highest scores are: 



One pair 

Three of a kind 

Two pair 

Full house (Three of a kind and two of a kind) 

Four of a kind 

Low run 

High run 

Five of a kind 
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How to play 



After the computer's first 'throw' you can hold the dice by 
using keys 1 to 5. Press R to release all the dice. Use SPACE to 
roll the dice free. You have ten rolls to make your high score 
and give your partner a target to beat. 



The Program 



10 
20 
30 
40 
50 
60 
70 
80 
90 
1 00 

110 

120 

130 

140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 



REM DICE 

MODE 1: BORDER 12 
DIM D<5) ,F(5) ,S(6) 
T=10 
SC=0 

GOSUB 1110 
PEN 1 

T=T-1:IF T=0 THEN GOTO 490 

FOR L=l TO 5:F(L)=0:NEXT L 

LOCATE 



LOCATE 
LOCATE 
LOCATE 



1,7s PRINT" 

ll 

1, UrPRINT" 

II 

1, 15: PRINT" 

II 

1,20: PRINT" 



220 
350 
220 
350 
220 
620 



GOSUB 

GOSUB 

GOSUB 

GOSUB 

GOSUB 

GOSUB 

SC=SC+NS 

GOTO 80 

REM GENERATE AND SHOW FIVE DICE 

FOR L=l TO 5 

IF F(L)=1 THEN GOTO 330 

Q=INT(RND( 10*60+10) 

D(L)=1 

FOR E=l TO Q 

LOCATE L*3+4,5 

D(L)=D(L)+1 
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300 IF D(L)=7 THEN D(L)=1 
310 PRINT CHR$(128+D(L) ) 5 
320 NEXT E 
330 NEXT L 
340 RETURN 

350 REM SET THE STOP FLAGS 
360 LOCATE 8, 2: PR I NT "HOLD NOW 
370 LOCATE 1,7: PRINT" 



380 FOR L=l TO 5: F (L> =0: NEXT L 

390 A*=INKEY*: IF A$<>"" THEN GOTO 390 

400 A*=INKEY*:IF A*="" THEN GOTO 400 

410 IF A*=" " THEN GOTO 460 

420 IF A*="R" THEN GOTO 

430 IF AS<"1" OR A*>"5" 

440 A=ASC ( A* ) -48 : LOCATE 

450 F(A)=1:G0T0 400 

460 REM FINISHED 

470 LOCATE 8, 2: PRINT" 



370 

THEN GOTO 390 

3*A+4,7:PRINT' 



480 RETURN 

490 REM END OF GAME 

500 MODE Is PEN 3 

510 LOCATE 1,11 

520 PRINT"End of the Game" 

530 LOCATE 1, 14 

540 PRINT"Your score is :" 

550 LOCATE 9, 17 

560 PRINT SC 

570 LOCATE 6,23 

580 PR I NT "Press < SPACED 

590 a$=INKEYS: IF A*=" " 

600 A*=INKEY*: IF A*<>" 

610 RUN 

620 REM SCORE THE DICE 

630 REM RETURN SCORE IN NS 

640 FOR L=l TO 6: S <L) =0s NEXT 

650 FOR L=l TO 5 

660 S<D<L> )=S(D(L) )+l 

670 NEXT L 

680 Z 2=0: FOR L=l TO 6 

690 IF S(L)=1 THEN Z2=Z2+1 

700 NEXT L 

710 Z 1=0: FOR L=l TO 6 

720 IF S(L)=0 THEN Z1=Z1+1 

730 NEXT L 



to continue" 
THEN GOTO 590 
THEN GOTO 600 
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THEN GOSUB 930: GOTO 840 

AND S(6)=0 THEN GOSUB 1050;:G 



1090s GOTO 840 
1030: GOTO 840 



740 IF Zl=5 

750 IF Zl=l 

OTO 840 

760 IF Zl = l AND S ( 1 ) =0 THEN GOSUB 1 

OTO 840 

770 IF Zl=l THEM GOSUB 

780 IF Zl=2 THEN GOSUB 

790 IF Zl<>3 THEN GOTO 820 

800 IF Z2=l THEN GOSUB 970: GOTO 840 

BIO IF Z2=2 THEN GOSUB 1010: GOTO 840 

820 IF Z2=l THEN GOSUB 990: GOTO 840 

830 GOSUB 950 

840 REM SCORE IS NOW IN NS 

850 REM AND MESSAGE IS IN N* 

860 LOCATE 1,11:PRINT" 

II 

870 LOCATE 1,11: PRINT N$ 

880 LOCATE 9, 15: PRINT"SCORE :";NS;" 



70: G 



890 LOCATE 16, 20: PR INT" < SPACE >" 

900 IF INKEY*=" " THEN GOTO 900 

910 IF II\IKEY*<>" " THEN GOTO 910 

920 RETURN 

930 REM FIVE OF A KIND 

940 N*= "********#* EUREKA ##****#***" : MS 

=50: RETURN 

950 REM PAIR AND THREE 

960 N$= "******** FULL HOUSE *********'•• M 

S=30: RETURN 

970 REM TWO PAIRS 

980 N*=" ****** DOUBLE DOUBLE ******" :NS= 

20: RETURN 

990 REM FOUR OF A KIND 

1000 N$= "*#*##*#* FOUR TIMES ********": M 

S=15: RETURN 

1010 REM THREE OF A KIND 

1020 N*= "******* THREE TIMES ******* ": MS 

=10: RETURN 

1030 REM ONE PAIR 

1040 N*= "**** MADE FOR EACH OTHER ****": 

NS=7: RETURN 

1050 REM LOW RUN 

1060 N$= "***•##*#** LOW RUN *#*###***" : NS 

=24: RETURN 

1070 REM HIGH RUN 

1080 N$="#*#****** HIGH RUN ***•*#***#" s N 
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S=4< 
1090 
HOC 
S=Os 

1 1 1 c: 

112( 
1 130 
1 14C 

use 

116C 
1 1 7C 

rr 
U 

i iac 

195 
1 19C 



M 



: RETURN 
REM MO SCORE AT ALL 
Z$="***#******* ZERO ******#***#" 

RETURN 
REM DEFINE DICE SHAPES 
SYMBOL AFTER 129 
SYMBOL 1 29 , , , , 24 , 24 , , , 
SYMBOL 1 30 , 3,3, ,0,0,0,192,1 92 
SYMBOL 131,3,3,0,24,24,0, 192, 192 
SYMBOL 132, 195, 195,0,0,0,0, 195, 195 
SYMBOL 133, 195,195,0,24,24,0, 195, 19 

SYMBOL 134, 195, 195,0, 195, 195,0, 195, 

RETURN 



HUNT THE DAY 




Have you ever wondered if your old dad was 'Fair of Face', 
'Full of Grace', 'Full of Woe', had 'Far to Go' or, hopefully, was 
'Full of Loving and Giving'? 

Now is your chance to find out. 

If you ask any members of your family, or your friends, when 
they were born you will be able to tell them, using this 
program, the actual day of the week when the great event 
happened. 



By the way, this chart is only effective as far back as 1st 
January, 1753 which was when the calendar changed to it's 
present form. Of course, you already knew that didn't you? 

Oh, by the way, we have taken account of leap years just in 
case you thought you could catch us out. 
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How to play 

You will be asked for details of the date you have in mind. 

When you have typed in the data press ENTER after each item. 

When you have completed the requested material your 
Amstrad CPC will do the rest for you. 

The Program 



10 REM HUNT THE DAY 

100 MODE 1 

110 LOCATE l,4:PRINT"Please give the dat. 

e you wish to " : PRINT"investigate. " 

120 GOSUB 1000 

130 GOSUB 2000 

140 LOCATE 1,2 

150 PRINT" That was/is/will be a " ; T 

160 LOCATE l,21:PRINT"Please press <SPAC 

E> when ready" 

200 IF INKEY*=" " THEN GOTO 200 

210 IF INKEY*<>" " THEN GOTO 210 

299 RUN 

1000 REM get a date 

1010 LOCATE 1, 11:PRINT"YEAR 

": LOCATE 10, 11 
1020 INPUT y:IF y<1753 OR yOINT(y) THEM 

GOTO 1010 
1100 LOCATE 1, 14: PR I NT "MONTH .. . 

": LOCATE 10, 14 
1110 INPUT M*:IF LEFT* <M», 1 ) >=" 1 " AND LE 
FT*(M$, 1)<="9" THEN M=VAL (M*) : GOTO 1200 
1120 RESTORE 9000 
1 125 M=0 

1130 FOR L=l TO 12 
1140 READ T* 

1150 IF T*=LEFT*(M*,3> THEN M=L 
1160 NEXT L 

1200 IF M<1 OR M>12 OR MOINT(M) THEN GO 
TO 1100 
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1 300 LOCATE 1 , 1 7 : PR I NT " DAY 

": LOCATE 10, 17 
1310 INPUT D 

1320 IF D<1 OR D>31 OR DOIMT(D) THEN GO 
TO 1300 

1999 RETURN 

2000 REM FIND OUT DAY OF WEEK 

2010 A=Y+1+31*<M-1)+INT( (Y-l > /4) -INT (3*1 

NT( <Y+99)/100)/4> 

2020 IF M<=2 THEN GOTO 2040 

2030 A=Y+1+31*(M-1)-INT( <4*M+23> / 10) +INT 

(Y/4)--INT<3*(INT(Y/100)+l)/4> 

2040 A=A-INT(A/7>*7 

IF A=0 THEN A=7 

A=A-1:IF M=2 THEN GOTO 2100 

N=31 

IF M=4 OR M=6 OR M=9 OR M=ll THEN N 



2050 
2060 
2070 
2080 

2090 
2 1 00 
2110 
2 1 20 

2130 

7 

2135 

2140 

2150 

2160 

2999 

9000 



GOTO 2120 

N=28 

IF Y-INT(Y/4)*4=0 THEN N=29 

IF D>N THEN T*=" NON-DAY 

DOESN'T EXIST ": RETURN 

A=A+D:D=A-INT(A/7>#7: IF D=0 THEN D= 



RESTORE 9500 

FOR L=l TO D 

READ T$ 

NEXT L 

RETURN 

DATA JAN, FEB, MAR 
9010 DATA APR,MAY,JUN 
9020 DATA JUL, AUG, SEP 
9030 DATA OCT, NOV, DEC 
9500 DATA SUNDAY, MONDAY, TUESDAY 
9510 DATA WEDNESDAY, THURSDAY, FRIDAY 
9520 DATA SATURDAY 



WALLBREAKER 




This is our version of the popular arcade game of the same 
name. Along the top of the screen you will see three rows of 
coloured 'bricks' and you must use the bouncing ball to 
demolish the wall in as few moves as possible. 

A little hint. If you break through the first two rows and get to 
the back wall the ball will stay bouncing, and demolishing, 
from behind until it breaks out again. 



How to play 

Use arrow keys to move the bat across the screen. 



Programming Hints 

If you are finding the game too easy, or too difficult, you can 
change the size of the bat by altering Line 80. Increase, or 
reduce the number after BL=. If you want to sit back and let 
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the ball bounce on it's own then simply increase the bat size 
until it fills the bottom of the screen. 



The Program 



10 REM 

20 ENV 1, 1, 15, 1, 15,-1, 1 

30 GOSUB 590 

40 HS=0 

50 BL=7 

60 BA$="":FOR L=l TO BL:BA*=BA*+CHR* < 132 

):NEXT L:BA*=" "+BA*+" " 

70 BE=31-BL 

80 GOSUB 450 

90 REM MAIN NEW GAME LOOP 

100 SC=0 

110 REM MAIN NEW FRAME LOOP 

120 BH=90 

130 GOSUB 360 

140 BX=10: GOSUB 540 

150 X=5:Y=20 

160 CX=1:CY==-1 

170 GF=1 

ISO REM MAIN BOUNCE AND SCORE LOOP 

190 GOSUB 750 

200 IF GF=0 THEM GOTO 1000 

210 GOSUB 920 

220 GOSUB 960 

230 PEN 3 

240 LOCATE 8,1: PR I NT SC; 

250 IF BHOO THEN GOTO 190 

260 REM END OF FRAME 

270 FOR L=10 TO 250 STEP 5 

280 SOUND 1,L,5:S0UND 2,L+7,4 

290 NEXT L 

300 MODE 1: LOCATE 4,11 

310 PRINT "Your score is now : " j SC 

320 IF SOHS THEN PRINT "You have the hig 

h score" : PRINT: PRINT"and you're still pi 

ayi rig": GOTO 340 

330 PRINT" You are "ihs-scj" points behin 

d the high score" 

340 FOR L=l TO 4000: NEXT L 
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350 GOTO 110 

360 REM Draw screen layout 

370 MODE 1: BORDER 14: PAPER OnPEN 2 

380 FOR L=2 TO 22 

390 LOCATE 1 , L : PR I NT CHR* < 129) : LOCATE 32 
, L: PRINT CHR* ( 130) S : NEXT L 

400 LOCATE 2, 2: FOR L=2 TO 31: PRINT CHR* ( 
134) 5 :NEXT L 

410 FOR L=2 TO 31: PEN 3: LOCATE L, 6s PRINT 
CHR* < 133) 5 : LOCATE L, 13: PRINT CHR* (133); 

420 PEN 1 : LOCATE L , 9 : PR I NT CHR* < 1 33 ) 5 : ME 
XT L 

430 LOCATE 2, 1 : PR I NT "SCORE s HIGH 

: " ;HS 

440 RETURN 

450 REM GENERATE THE PATTERNS 

460 SYMBOL AFTER 129 

470 SYMBOL 129,4,2,1,2,4,2,1,2 

480 SYMBOL 130,32,64,128,64,32,64,128,64 

490 SYMBOL 131,24,62,126,255,255,126,62, 
24 

500 SYMBOL 132,255,255,170,85,72,16,0,0 

510 SYMBOL 133,255,170,85,170,85,170,85, 
255 

520 SYMBOL 1 34 , , , , , , ., , 255 

530 RETURN 

540 REM DRAW BAT ON SCREEN 

550 LOCATE BX,23 

560 PEN 3 

570 PRINT BA*5 

580 RETURN 

590 MC=40000 

600 TA=40000+S<7F 

610 TH=INT(TA/256) 

620 TL=TA-256*TH 

630 POKE MC,8<CD 

640 POKE MC+1.&60 



650 


POKE MC+2,&BB 


660 


POKE MC+3,&32 


670 


POKE MC+4,TL 


680 


POKE MC+5,TH 


690 


POKE MC+6,&C9 


700 


RETURN 


710 


LOCATE XX, YY 


720 


CALL MC 


730 


DD=PEEK(TA) 
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740 RETURN 

750 REM SET UP NEW BALL POSITION 

760 REM CHANGE SCORE IF APPROPRIATE 

770 C=X+CX:D=Y+CY 

730 IF C<2 OR C>30 THEM CX=-CX: SC=SC+2: G 

OTO 770 

790 IF D<3 THEN CY=-CY: SC«=SC+4: CX = INT <RN 

D(1)*3)--1:G0T0 770 

800 IF D>23 THEN GF=0: RETURN 

810 XX=C+1:YY=D+1:G0SUB 710 

820 IF DD=32 THEN RETURN 

830 SOUND 1,280,20,0,1 

840 IF DD=132 THEN GOTO 880 

850 BH=BH-1 

860 SC=SC+D: LOCATE XX, YY: PRINT" " ; 

870 CX=INT(RND(l>*3)-i:CY=--CY:G0T0 770 

880 SC=SC+20:CY=-CY 

890 CX=INT(RND(1)*3)-1 

900 GOTO 770 

910 RETURN 

920 REM ERASE OLD BALL, PLOT NEW BALL 

930 LOCATE C+l , D+l : PRINT CHR* ( 131 > ; : LOCA 

TE X+1,Y+1: PRINT " " 

940 X=C:Y=D 

950 RETURN 

960 REM MOVE BAT IF NECESSARY 

970 IF INKEY(8)=0 AND BX>1 THEN BX=BX-1: 

GOSUB 540 

--0 AND BX<BE THEM BX=BX + 1 



HAS LOST THE BALL 
1, 10jPRINT"GAME OVER" 
5: PEN 2s PR I NT "YOU SCORED 

1030 IF SONS THEN LOCATE 1 , 18: PRINT"WHI 

CH IS THE HIGH SCORE" : HS=SC: GOTO 1050 

1040 LOCATE 1 , 18: PRINT "SLIGHTLY ( " ; HS-SC 

;") less than ": LOCATE 1 , 20: PR I NT "the hi 

gh score" 

1050 LOCATE 1 , 21 : PRINT "DO YOU WANT TO PL 

AY AGAIN ": LOCATE 15, 23: PRINT" ( Y/N) " 

1060 I*=INKEY* 

1070 IF I*<>"Y" AND I*<>"N" THEN GOTO 10 

60 

1080 IF I*-"Y" THEN GOTO 100 



980 


IF INKEY(l) 


:GOS 


UB 540 


990 


RETURN 


1 000 


REM PLAYER 


1010 


CLS: LOCATE 


1020 


LOCATE 1,1 


: " ; S 


C 
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1090 MODE 1: LOCATE 1 1 , 1 1 : PRINT" type RUN 
to restart" 
1100 END 



TECHNICAL ARTIST 



1 . I 



[\ 



X 




f . I 



§* 






T 




If you have dreams of becoming an architect and are 
interested in producing your own plans for rooms, gardens or 
garages then this is the program for you. 

Using this program you will be able to produce highly 
accurate line drawings which you can them 'dump' onto a 
printer, if you have one and hand on to a planner. You could 
use this item for estimating how much carpeting you are 
going to need for new rooms etc. 

You can also change the colours to give you an idea of the 
final effect. 



How to play 

To move the cursor around the screen use the ARROW keys. 
To fix the end point of a line press key F. 
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To release a line and allow the cursor to move freely press key 
R. 

To clear the screen press Z. 

To change the colour with which you are drawing press C. 
You will then have to chose another colour by using digit to 
3 and by pressing ENTER. 



The program 



10 REM TECHNICAL ARTIST 

20 MODE 1 

30 GOSUB 390 

40 PR I NT CHR$ ( & 1 7 ) ; CHR* (1)5 

50 X=320:Y=200 

60 FX=0 

70 WINDOW #1,1,40,1,24 

80 WINDOW #2,1,40,25,26 

90 C0L0UR=1 

100 PLOT X,Y, COLOUR 

110 REM MAIN COMMAND LOOP 

120 CX=0:CY=0 

130 IF INKEY(0)=0 THEN CY=4 

140 IF INKEY(1>=0 THEN CX=4 

150 IF INKEY(2)=0 THEN CY=-4 

160 IF INKEY(8>=0 THEN CX=-4 

170 TX=X+CX:TY=Y+CY 

180 IF TX<1 OR TX>639 THEN TX=X 

190 IF TY<17 OR TY>399 THEN TY=Y 

200 A*=IIMKEY*:IF A*="" THEN GOTO 260 

210 IF INKEY(53)=0 THEN FX = 1 : XFI X = X : YFI X 

=Y 

220 IF INKEY(71)=0 THEN CLS #1:PL0T X,Y, 

COLOUR 

230 IF INKEY(62)=0 THEN GOSUB 450 

240 IF INKEY(50)=0 THEN FX=0:PLOT X,Y,CO 

LOUR 

250 GOTO 110 

260 REM MOVE CURSOR 

270 IF FX=1 THEN GOTO 320 

280 PLOT X,Y, COLOUR 
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290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 



PLOT TX,TY 

X=TX: Y=TY 

BOTO 110 

REM MOVE RUBBER BAND 

IF X=TX AND Y=TY THEN GOTO 110 

MOVE X,Y 

DRAW XFIX,YFIX, COLOUR 

DRAW TX,TY 

X=TX:Y=TY 

GOTO 110 

REM START-UP KEY DEFINITIONS 

DEF 0,0 

DEF 1,0 

DEF 2,0 

DEF 8,0 
RETURN 

REM CHANGE THE COLOUR SUBROUTINE 
CLS #2 
LOCATE 1,25 
PR I NT "COLOUR : 
COLOUR*="0" 
A*=INKEY* 
IF A*=CHR$(13) 



KEY 
KEY 
KEY 
KEY 



0" 



THEN 



GOTO 
THEN 



560 
GOTO 500 



IF A$<"0" OR A*>"9" 

COLOUR*=A* 

LOCATE 9, 25: PRINT VAL ( COLOUR*) 

GOTO 500 

COLOUR=VAL (COLOUR*) 

IF COLOUR >3 THEN GOTO 460 

RETURN 



SPIDER 




Now here is a variation on the game of 'Frogger' which you 
have probably seen on expensive tapes and in arcade games. 

You have to help a spider back to it's web in the top of the 
screen by moving it through waves of cars. Every time you 
manage to get the spider home another wave begins so keep 
your wits about you. 



How to play 



Use the ARROW keys to move the spider around and when 
your little friend is killed off restart by pressing the SPACE bar. 
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The program 



10 f 


REM SPIDER 


20 BORDER 13 


30 ( 


30SUB 620 


40 GOSUB 780 


50 f 


REM NEW PLAYER START 


60 SCORE=0 


70 f 


REM NEW WAVE START 


80 MODE 


90 I 


«JAVE=WAVE+1 


1 00 


TM=300 


no 


GOSUB 840 


120 


GOSUB 940 


130 


X=15:Y=24 


140 


PEN 11 


150 


LOCATE X,Y: PRINT CHR*(251); 


160 


GOSUB 1080 


170 


TM=TM-6 


ISO 


LOCATE X,Y: GOSUB 740 


190 


IF DD0251 AND DDO206 OR TM=0 THEM 


GOTO 370 


200 


XX=X: YY=Y 


210 


IF INKEY<0)=0 THEN YY=Y~1 


220 


IF INKEY(1)=0 THEN XX=X+1 


230 


IF INKEY(2)=0 THEN YY=Y+1 


240 


IF INKEY(8)=0 THEN XX = X--1 


250 


IF X<1 OR X>20 OR Y>25 THEN GOTO 370 


260 


LOCATE XX, YY: GOSUB 740 


270 


IF DD=253 THEN GOTO 500 


280 


IF DDO206 AND DD0251 THEN GOTO 370 


290 


LOCATE X,Y 


300 


PEN 7 


310 


PRINT CHR*(206>; 


320 


LOCATE XX, YY 


330 


PEN 11 


340 


PRINT CHR$(251) ; 


350 


X=XX:Y=YY 


360 


GOTO 160 


370 


REM DEAD 


380 


LOCATE 4, 25: PEN 14 


390 


PRINT" SPLAT ! "; 


400 


LOCATE 3, 10 


410 


PRINT" SCORE : " 5 SCORE 
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420 FOR 0=300 TO 450 STEP 50 

430 SOUND 1,0,50 

440 SOUND 2,0+15,45 

450 SOUND 0,0+30,40 

460 NEXT 

470 IF INKEY$=" " THEN GOTO 470 

480 IF INKEY*<>" " THEN GOTO 480 

490 GOTO 60 

500 REM SPIDER HAS REACHED THE WEB 

510 SCORE=SCORE+TM 

520 PEN 7 

530 LOCATE 10,2 

540 PRINT CHR$(206) ; 

550 PEN 15 

560 LOCATE 10,1: PRINT CHR*(251); 

570 LOCATE 5, 25: PRINT"WELL DONE" 

580 LOCATE 3, 10: PR I NT" SCORE : "; SCORE 

590 FOR Q=l TO 500 

600 SOUND 1,0,1: NEXT 

610 GOTO 70 

620 REM MACHINE CODE 

630 MEMORY &A87F 

640 MO&A880 

650 TA-&A8FF 

660 POKE MC,&CD 

670 POKE MC+l,g<60 

680 POKE MC+2,?/.BB 

690 POKE MC+3,&32 

700 POKE MC+4,S<FF 

710 POKE MC+5,&A8 

720 POKE MC+6,fcC9 

730 RETURN 

740 REM CHECK ON SCREEN USING MACHINE CO 

DE ROUTINE 

750 CALL MC 

760 DD=PEEK(TA) 

770 RETURN 

780 REM DEFINE LORRY AND SPIDER CHARACTE 

RS 

790 SYMBOL 250 , , ?<77 , 8<22 , 8<7E , &BE , &7E , 8<22 

,8<77 

800 SYMBOL 251 , &24, &99, &7E,&3C, &FF, &3C, & 

3C,8/5A 

8 1 SYMBOL 252 , , &E0 , &40 , 8<FE , &FF , &FE , &40 

, &E0 
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820 SYMBOL 253 , 2<BD , S<42 , &BD , ?.-B5 , ?.-AD , &BD , c - 
42,&BD 

830 RETURN 

840 REM BUILD LORRY STRINGS 

850 A*=" " 

860 FOR L=l TO 5 

870 A*=A*+CHR* (250) +STRING* (3, CHR* (206) ) 

880 NEXT L 

890 B*=" n 

900 FOR L=l TO 4 

910 B*=B*+CHR*(252)+STRING*(4,CHR*(206) ) 

920 NEXT L 

930 RETURN 

940 REM FILL IN THE SCREEN 

950 PEN 7 

960 Q*=STRING* (20, CHR* (206) ) 

970 LOCATE 1,2 

980 FOR L=l TO 24 

990 PRINT Q*; 

1000 NEXT L 

1010 LOCATE 1, 1 

1020 PEN 8 

1030 PRINT STRING* (9, CHR* (250) ); " "SSTRI 

NG*(10,CHR*(252> ) ; 

1040 PEN 13 

1050 LOCATE 10, 1 

1060 PRINT CHR* (253) ," 

1070 RETURN 

1080 REM MOVE THE LORRIES 

1090 PEN 9 

1100 LOCATE 1,3 

1110 PRINT A* 

1120 LOCATE 1,7 

1130 PRINT A* 

1140 LOCATE 1,11 

1150 PRINT A* 

1160 LOCATE 1, 15 

1170 PRINT A* 

1180 A*=RIGHT*(A*, 19) +LEFT* (A*, 1) 

1190 PEN 7 

1200 LOCATE 1,5 

1210 PRINT B* 

1220 LOCATE 1,9 

1230 PRINT B* 

1240 LOCATE 1, 13 
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1250 PRINT B$ 

1260 LOCATE 1, 17 

1270 PRINT B* 

1 280 B$=R I GHT* < B* , 1) +LEFT* ( B* , 1 9 ) 

1290 RETURN 



DOUBLE SURROUND 




Here is a game you can only play with a close friend as you will 
have to sit in each others lap to play. 

Each player will have the target of trying to surround his 
opponent before being surrounded himself. Sounds tricky 
doesn't it? Just wait until you try to play complete with some 
very nasty crashing and crunching noises when you finally 
collide. 

Oh, by the way, if you happen to crash into your own trail it 
will mean goodbye for you so keep on your toes and off your 
opponents trail - and your own. 



How to play 

Player One uses Q and A and Z and X 
Player Two uses . and , and ; and / 
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The program 



10 REM DOUBLE SURROUND 

20 0=3: D=3: MODE 1 : BORDER 14 

30 GOSUB 560 

.4.0 SYMBOL 250 , &3C , 2<3C , &D7 , &EB , &D7 , ?<EB , i 

C., S<3C 

50 REM NEW WAVE START 

60 X1=5:Y1=12 

70 X2=35:Y2=12 

SO A1=1:B1=0 

90 A2=-1:B2=0 

100 MODE 1 

110 SOUND 1,0,4,10,0,0,15 

120 IF INKEY(67)=0 THEN A1=0:B1=-1 

130 IF INKEY(69)=0 THEN A 1=0: B 1=1 

140 IF INKEY(71)=0 THEN A1=-1:B1=0 

150 IF INKEY(63)=0 THEN A1=1:B1=0 

160 LOCATE X1,Y1:PEN 3: PRINT CHR*(250) 

170 X1=X1+A1:Y1=Y1+B1 

ISO XX=X1:YY=Y1 

190 GOSUB 6S0 

200 IF DD<>32 THEN GOTO 330 

210 LOCATE X1,Y1:PEN 1: PR I NT CHR$(250) 

220 IF INKEY(39)=0 THEN A2=~1:B2=0 

230 IF INKEY<31)=0 THEN A2=1:B2=0 

240 IF INKEY(30)=0 THEN A2=0:B2=1 

250 IF INKEY<28>=0 THEN A2=0:B2=-1 

260 LOCATE X2,Y2:PEN 3: PRINT CHR*(250) 

270 X2=X2+A2:Y2=Y2+B2 

280 XX=X2:YY=Y2 

290 GOSUB 680 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 



IF DD<>32 THEN GOTO 360 




LOCATE X2,Y2:PEN 2: PR I NT 


CHR$(250) 


GOTO 110 




REM PLAYER ONE CRASHED 




C=C-1 




D=D+1 




REM PLAYER TWO CRASHED 




D=D-1 




FOR L=10 TO 500 STEP 35 




SOUND 1,L, 30: SOUND 2,L+2< 


I), 28 


FOR Q=l TO 20 




INK 3, INT(RND(l)*15+5) 
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420 NEXT Q 

430 NEXT L. 

440 INK 3,9 

450 IF SQ(1)<>4 THEN GOTO 450 

460 IF C*D<>0 THEN GOTO 50 

470 REM SOMEONE HAS WON 

480 LOCATE 9,12 

490 PEN 1 

500 PRINT" PLAYER "; 

510 IF C=0 THEN PR I NT "TWO " 5 ELSE PRINT" 

ONE "5 

520 PRINT "WINS BY " ; ABS <D-C> ; " 

tl M 
•I 

530 IF INKEY*<>"" THEN GOTO 530 

540 IF INKEY*="" THEN GOTO 540 

550 RUN 

560 REM PUT MACHINE CODE INTO RAM 

570 MEMORY &A97F 

580 MO&A9B0 

590 TA=&A9FF 

600 POKE MC,?<CD 

610 POKE MC+1.&60 

,&BB 

&32 

&FF 

&A9 

S<C9 



620 POKE MC+2, 

630 POKE MC+3^ 

640 POKE MC+4, 

650 POKE MC+5^ 

660 POKE MC+6, 

670 RETURN 

680 REM READ CHARACTER FROM SCREEN 

690 IF XX<1 OR XX>40 OR YY< 1 OR YY>25 TH 

EN DD=-1:G0T0 730 

700 LOCATE XX, YY 

710 CALL. MC 

720 DD=PEEK(TA) 

730 RETURN 



SNAKER 




You are in charge of a very fast growing snake which is 
charging around your television screen, getting longer and 
longer second by second. 

Your objective is to stay alive as long as you can, before your 
own body becomes too long and you run over yourself and 
self destruct. 

If you run off the edge of the screen, you will just pop up on the 
other side and keep going, so don't try to gain any time by 
taking this way out. 

The longer you can stay alive the higher score you will 
achieve but I'm afraid that the snake will get you into trouble 
in the end. 



How to play 

Guide yourself around the screen using the arrow keys to 
move. 
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You will be asked for your name and when you have typed it 
in and pressed ENTER the game will begin. To restart the 
game press the SPACE bar. 



The program 



10 REM SNAKER 

20 GOSUB 470 

30 HIGH=0 

40 HS$="" 

50 SYMBOL 250 

C,&1B 

60 SYMBOL 251 



, & 1 S , &5C , 2/42 , ?. : DB , &DB , ?<42 , ?,3 
?•■: 1 S , ?<5A , &-3C , &E7 , &E7 , &3C , ?••: 1 



your name "Jnamel 
10 OR NAME*="" THEM 



GOTO 180 
1: PRINT" 
!HS* 
LOOP 



8 , 2<5A 

70 REM NEW PLAYER LOOP 

SO sc-o 

90 MODE 1 

100 LOCATE 1, 10 

110 INPUT "What is 

120 IF LEN(NAME*> > 

TO 90 

130 MODE 1 

140 X=5:Y=5 

150 KK=1 

160 IF HIGH=0 THEN 

170 LOCATE 1, l.-PEN 

RE OF "5 HIGH; " BY " 

180 REM MAIN PLAY 

190 GOSUB 650 

200 A=X:B=Y 

210 KK=Q 

220 IF KK=0 THEN 

230 IF KK=2 THEN 

240 IF KK=1 THEN 

250 IF KK=S THEN 

260 XX=A:YY=B 

270 GOSUB 600 

2S0 IF DDO-32 THEN GOTO 370 

290 PEN 3 

300 LOCATE X,Y: PRINT CHR*(250) 

310 PEN 2 

320 LOCATE A, B: PRINT CHR*(251> 

330 X=A:Y=B 

340 SC=SC+15 



GO 



HIGH SCO 



B=B~1 
B=B+1 
A=A+1 
A=A-1 



IF 
IF 
IF 
IF 



B=0 THEN B= 
B=26 THEN B 
A=41 THEN A 
A=0 THEN A= 



= 1 
40 
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350 SOUND 1,300,5 

360 GOTO 190 

370 REM THE SNAKE ATE ITSELF 

330 FOR Q=10 TO 450 STEP 5 

390 SOUND 1,Q,4 

400 SOUND 2,0+10,3 

410 INK 3, INT(RND(l>*16+4> 

420 NEXT Q 

430 IF SOHIGH THEN LOCATE 1 , 10: PRINT"TH 

E MEW HIGH SCORE" : HIGH=SC: HS*=NAME* 

440 IF INKEY*=" " THEN GOTO 440 

450 IF INKEY$<>" *' THEN GOTO 450 

460 GOTO 70 

470 REM PUT MACHINE CODE ABOVE RAMTOP 

480 MEMORY &A97F 

490 MC=&A980 

500 TH=&A9 

510 TL=»8<FF 

520 POKE MC,&CD 

530 POKE MC+1,S<60 

540 POKE MC+2,&BB 

550 POKE MC+3,&32 

560 POKE MC+4,TL 

570 POKE MC+5,TH 

580 POKE MC+6,2/.C9 

590 RETURN 

600 REM RETURN SCREEN CHARACTER 

610 LOCATE XX, YY 

620 CALL MC 

630 DD=PEEK(?<A9FF) 

640 RETURN 

650 Q=KK 

660 FOR L=0 TO 8 

670 IF INKEY(L>=0 THEN Q=L 

680 NEXT L 

690 IF QOO AND Q<>1 AND Q<>2 AND QOS T 

HEN Q=KK 

700 RETURN 



THE AMSTRAD PROGRAM BOOK 



Your Amstrad computer has already been hailed by 

the computer press as having 'graphics and sound 

facilities superior to the Spectrum and Oric 9 . 

To meet the demands of the Amstrad we have 

produced a wide ranging selection of programs to 

make full use of the colour, sound and speed available 

to you. 

Here are arcade style games to test your reaction 

skills and mental agility as you battle with aliens from 

outer space. 

Adventures to make you face the dragons and 

dungeons to save the princess. 

Brainteasers to make you skip through minefields and 

worse. 

Programmers aids to help you build up your own 

computing skills. 

This is the AMSTRAD PROGRAM BOOK with 

something for everyone. 

THE AUTHOR 

Peter Goode is the author of several best selling 

program books including the Atari 600XL Program 

Book and Memotech MTX Program Book. 



